FAITES CIRCULER... 


‘IL y a mille et une manières de programmer, la meil- 
leure et la plus agréable reste certainement de le faire par goût. 
Dans ce domaine, en effet, l'amateur est un privilégié. 


La petite informatique à connu ces dernières années un 
succès et des perfectionnements tels que l'on trouve aujourd'hui, 
à des prix abordables, des ordinateurs (de poche ou de table) 
dont on n'aurait pas osé rêver il y a dix ou vingt ans. L'infor- 
matique n'est plus l'apanage des spécialistes, et la programma- 
tion devient un loisir d'une richesse exceptionnelle. 


Contrairement au professionnel, l'amateur n'a aucune 
obligation de résultat, aucun projet prédéfini par quelqu'un 
d'autre que lui-même, aucun délai à respecter. Son activité 
s'exerce donc sans contrainte, comme s'il s'agissait d'un travail 
de recherche fondamentale. Son souci n’est pas avant tout de se 
faciliter la tâche coûte que coûte, d'éviter systématiquement les 
difficultés, mais plutôt de les affronter, et de les surmonter. 
Chez l'amateur isolé, combien de trouvailles dorment dans des 
tiroirs ? 

Souvent, on se pose des problèmes délicats pour la seule 
satisfaction de les résoudre du mieux possible. Que l'on soit 
débutant ou non, ce qui compte, c'est le plaisir de la découverte, 
même si l'on procède un peu à l'aveuglette. Bien sûr, on peut 
réinventer la roue. Il n'empéche, cette belle liberté permet 
d'explorer en dehors des sentiers battus. Programmeur du 
dimanche, programmeur du samedi, oui... mais c'est le diman- 
che souvent que se font les découvertes. Encore faut-il les faire 
connaître. 


Par ailleurs, la qualité de la programmation n'est pas 
nécessairement liée au matériel utilisé. On peut, sur un PC- 
1211, découvrir « le » truc qui rendra de grands services aux 
utilisateurs de TO7, d'Oric, de Spectrum. Quelle que soit la 
machine pratiquée, nous avons une mine d'idées à creuser. Qui 
peut se targuer d'avoir fait le tour d'une « simple » calculatrice 
programmable ? Personne. Faites circuler, faites circuler vos 
idées. 

Voilà pourquoi LIST vous engage dès maintenant à 
prendre votre plus belle plume (ou votre plus belle bille) 
Langage-machine, assembleurs, Pascal, Logo, Forth, Bask, 
notation polonaise inverse ou algébrique, etc., trouvailles d'inté- 
rêt général ou destinées à un matériel particulier, algorithmes 
originaux, nous attendons dès maintenant votre courrier : criti- 
ques, suggestions, propositions d'articles. 

Le dialogue entre un journal ef ses lecteurs ne peut 
s'établir que si les roles s'inversent de temps à autre, c'est-a- 
dire si les lecteurs écrivent et si la rédaction consacre une partie 
de son temps à lire les lettres qui lui sont adressées. 

C'est en nous écrivant donc que vous contribuerez à ce 


que LIST corresponde encore mieux à ce que vous attendez de 
votre journal. 


LIST 


LIST - PAGE 4 


 d 
HAE ASIE PERRIER 
E 


HA 
HE 


1 COUVERTURE 
Premier numéro de LIST, première 
couverture. C'est à Pierre Borenstein 
que l'on doit la maquette de cette toute 
bremière pese L'illustration est 
signée Philippe Mairesse 


B ÉDITORIAL 


_ 1 POURQUOI, 


DIABLE, 
PROGRAMMEZ-VOUS ? 
Nous avons posé la question à une 
douxaine de personnes. Vous 
reconnaîtrez-vous dans les réponses 
que nous avons recueillies ? 


D ET PUIS UN JOUR... 


Au courrier, une lettre d'Antoine. 
postée sous les tropiques. Il nous 
raconte sa découverte de l'informati- 


que. 
de) LA GAZETTE DE 


LIST 


29 JEUX ET CASSE- 


TÊTE INFORMATIQUES 
Exercex votre logique et votre ingénio- 
sité pour résoudre quelques petits pro- 
blèmes simples en apparence. 


É: O PROGRAMMA- 


TION BIEN ORDONNÉE... 

Ce ne sont pas les méthodes qui man- 
quent : le tout est d'adopter celle qui 
vous convient et de vous y tenir. 


33 ANIMEZ VOTRE 


TÉLÉVISEUR 

Si votre machine est désœuvrée, 
confiez-lui la tâche de créer des 
tableaux abstraits (programmes pour 
TO 7, TRS 80 Modele 1, Lynx et 
Spectrum) 


RAIN 


Henas elles mass 


É 6 MISEZ P'TIT. 


OPTIMISEZ 

Peut-on faire encore plus court, encore 
blus rapide ? Les utilisateurs de la 
HP-41 C relèveront certainement le 


défi 


D. eo JEU DE SQUASH 


SUR ORIC 

Comment faire ingurgiter à un Oric 
une raquette, une balle, un terrain de 
squash et les règles du jeu. 


40 LES COUPS D'ŒIL 


DE LIST 

Trois logiciels d'aide à la program- 
mation passent à l'essai. Que faut-il 
attendre d'eux ? 


40 TOOL POUR 
COMMODORE 64 

Avec Tool, on perd & Ko de mémoire 
vive, maïs l'ordinateur devient beau- 
coup plus agréable à utiliser. On en 
vient à regretter que ces nouvelles ins- 
tractions n'aient pas été incluses dans 
la version de base. 


42 LE BASIC ÉTENDU 

DU TI 99/4 A 

Un ensemble de fonctions élaborées 
dont les plus spectaculaires concernent 
la gestion de l'écran. 


41 COMP ACTOR POUR 

TO 7 \ 
Cing options pour faciliter la concep- 
tion des programmes et les optimiser : 
suppression des REMs, des espaces 
facultatif, références croisées et, bien 
sûr, compactage. 


4 6 L'HISTOIRE DES 


LANGAGES : LES DÉBUTS 
Au commencement étaient les zeros et 
les uns. 
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SOMMAIRE 


4 9 FAITES LE TOUR 


DE VOS BOUCLES FOR... 
NEXT 

Il y a Basic et Basic. D'une machine 
à l'autre, certaines instructions diffe- 
rent. Déterminezx vous-même com- 


ment votre ordinateur exécute FOR 
NEXT. 


5 @) PASCAL : SUIVONS 


LA PROCÉDURE 

L'une des méthodes de tri les plus 
connues est due à D.L. Shell. Voyons 
ce qu'elle donne en Pascal, et quel est 
son équivalent en Basic. 


A TOUTE MÉDAILLE 


A SON REVERS 

Ordinateur de poche ou ordinateur de 
table ? Chaque catégorie conserve ses 
propres avantages. 


54 INSPECTONS LE 


SPECTRUM 

Tout un tas de renseignements pour 
connaître mieux l'ordinateur de Sin- 
clair. 


56 A L'ESSAI : 


LE BASIC DU MO5 

Avec 48 Ko de mémoire vive pour 
2 390 F, le nouveau-né de Thomson 
se fait surtout remarquer par la sou- 
blesse de son Basic (conçu par Micro- 


sofi). 


62 UN PROGRAMME 


SOUS LA LOUPE (PB-700) 

Le jeu est simple, et le programme est 
suffisamment court pour être examiné 
dans le détail. Chacun pourra le 
transposer sur son matériel. 


65 PC-1500 : 


ROGRAMMEZ LIST ET RUN 
En 140 octets, un utilitaire qui se 
charge de retrouver (pour les lister ou 
les exécuter) les autres programmes en 
mémoire. 


66 PARAMETREZ, 


VOUS DIS-JF... 

Pour gagner du temps et faire des éco- 
nomies de mémoire vive, on a bien 
souvent intérèt à préférer les variables 
aux constantes. 


66 IL Y À DU JEU 


DANS LES ANGLES 

La FX-602 P est une calculatrice 
sérieuse, mais rien n'interdit d'utili- 
ser ses trois modes angulaires pour 


faire un jeu. 


69 METTEZ UNE 


CALCULETTE DANS VOTRE 
ORDINATEUR 

Quelques lignes de Basic et votre 
grosse machine devient aussi commode 
à utiliser qu'une calculette « quatre- 
opérations » ! (Programme pour TI 
99/4A, TO 7, Dragon 32/64 et 
TRS 80 Modèle 1). 


7 1 $I VOTRE 


PROCESSEUR EST UN Z80 
Avec le langage-machine ou l'assem- 
bleur, attaquez-vous à votre tour au 
problème de Syracuse. 


Vi 3 LOGO N'EST PAS 


UN LANGAGE ENFANTIN 
Logo est célèbre surtout bour sa tortue. 
Mais il a bien d'autres attraits, bien 
d'autres possibilités. 


76 8 KO DE MÉMOIRE 


MORTE 

Depuis que le PC-1251 est apparu 
on recherchait en vain 8 Ko d? 
mémoire morte. On sait maintena 1t 
où les trouver et comment faire pur 
les décrypter. 


7 7 LA BOÎTE À 


MALICES 

Prenez un programme et retirex-en 
les astuces, toutes les astuces, des plus 
grossières aux plus subtiles, Que reste- 
t-il 2 Rien. Dans ce numéro, des 
ficelles pour les X-07, ZX 81, 
Apple IL, PC-1500, TO 7, PB- 
100, Alice, FX-702 P et PC- 
1212. 


63 VRAI OÙ FAUX : 


LA LOGIQUE EN BASIC 

Les « booléens » sont des auxiliaires 
brécieux pour le programmeur, même 
si, d'un Basic à l'autre, ils ne se com- 
portent pas de la même façon. Le tout 
est de bien les connaître, et de les uti- 
liser à bon escient. 


6! / LES DIX TESTS 


DE LIST 

Un chronomètre et dix programmes 
très courts, cela devrait vous suffire 
pour vous faire une première idée sur 
la vitesse à laquelle votre Basic tra- 
vaille. 


9 PASSIONNÉ PAR 


FORTH 

On a toujours tendance à préférer le 
langage que l'on connaît le mieux. Si 
votre dada n'est pas Forth, vous 
laisserex-vous tout de même séduire ? 


99 QUE LE GRAND 


CRIC ME CROQUE ! 
HP-41 C : le B-A-BA de la pro- 
grammation synthétique. 


94 PLUS VITE, S.V.P. 


Une petite démonstration qui pour- 
rait bien vous donner l'envie de pro- 
grammer votre PC-1251 en 
langage-machine. 


9 5 ENCHAÏNONS, 


ENCHAÎNONS... 

Sur les ordinateurs. Commodore, le 
chaïnage des programmes est une opé- 
ration relativement simble, à condi- 
tion de savoir s'y prendre ! 


Ce numéro contient en encart des bulle- 
tins d'abonnement paginés 19, 20, 85 et 
86. 
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Fiche technique du ZX SPECTRUM 


Unité centrale 

Microprocesseur Z 80 À, 3,25 MHz. 

RAM 16 K ou 48 K. 

ROM 16 K. 

Clavier 

40 touches avec répétition automatique et 
témoin sonore. Système d'entrée de toutes 
les fonctions par mots-clefs. 

Affichage 

31 x 24 caractères, majuscules ou minuscu- 
les. Haute définition graphique 256 x 192 
(49 152 points adressables individuellement). 
Générateur de caractères 

ASCIl étendu (matrice 8 x 8). 21 caractères 
programmables. Possibilité de redéfinition 
de l’ensemble des caractères. 

Couleurs et sons 

8 couleurs. Haut-parleur intégré 130 demi- 
tons (10 octaves). Amplification par prise 
micro. 

Langages 

Basic intégré, Pascal, Assembleur et Forth 
en option. 

Interface magnétophone 

Vitesse de transmission : 1500 bauds. Sau- 
vegarde de pages mémoire et tableaux 
Séparés. Fonctions VERIFY et MERGE. 
Ecran 

Raccordement sur prise antenne pour 
récepteur PAL ou prise PERITEL pour 
récepteur SECAM. 


Nous sommes à votre disposition pour 
toute information au 359.72.50. 

Magasins d'exposition-vente : 

Paris - 11 rue Lincoln 75008 (M° George V) 
Lyon - 10 quai Tilsitt 69002 (M° Bellecour) 
Marseille - 5 rue St-Saëns 13001 (M° Vieux- 
Port). 


LIST - PAGE 6 


INCLAIR s'impose par la passion 

des Sinclairistes. Ils sont 2 mil- 
lions dans le monde à avoir découvert 
Sinclair. Les revues et les nombreux 
clubs en sont l'écho. 


Sinclair s’impose. 


Sinclair s'impose par la richesse 
unique de sa gamme de logiciels et de 
par sa bibliographie incomparable. 

Sinclair s'impose par sa capa- 
cité d'innovation et son souci de la 


perfection, à des prix abordables par 


Les 3 nouveaux périphériques 
du ZX SPECTRUM en sont la preuve. 
Découvrez-les d'urgence. 


Le Microdrive ZX 

Une prouesse technologique 
dans le domaine de la mémoire. Cha- 
que microdrive utilise des bandes 
sans fin interchangeables, d'une 
capacité de 85 K octets. L'accès à la 
mémoire s'effectue en un temps 
record. Ainsi, un programme de 48 K 
octets se charge en 9 secondes. 8 mi- 
crodrives peuvent être connectés au 
SPECTRUM, qui dispose alors d'une 
capacité de 680 K octets en ligne. 
C'est incomparable. 


L'interface ZX 1 

Une extension qui transforme 
votre micro en géant. Elle permet, 
outre le raccordement des micro- 
drives, de gérer des fichiers et de 
brancher des imprimantes de format 
courant. De plus, elle autorise l’éta- 
blissement d'un réseau de communi- 
cation à vitesse élevée, pouvant 
regrouper 64 SPECTRUM. Et toujours 
à un prix Sinclair. 


L’Interface ZX 2 

Avec elle, le plaisir est total. Elle 
lit instantanément les nouvelles car- 
touches ROM de jeu et permet le 
branchement simultané de 2 manet- 
tes de jeu. 

Ce nouveau périphérique peut 
se brancher directement sur le micro- 
ordinateur ou sur l'interface ZX 1. 


Le ZX SPECTRUM constitue 
alors un incomparable système infor- 
matique. Sinclair s'impose. 


— | pe | = || 


la micro-ordination 


Bon de commande au verso. 


| 
| 


ZX Spectrum. Un incomparable système informatique. 


SHISNOD SAV IID » 


Bon de commande 


A retourner à Direco International - 30, avenue de Messine - 75008 Paris. 


ZX Spectrum JEUX D'ARCADES | 
Jumping Jack …….. | 95Fx [JS 17 

Microdrive LOOM : issues 
(série de 8 possible) | Alchemist... 
SX coneios Mined-Out..…........…. 
S& câble RS 232 Androides…......... 

Connexion _—— 

Interface ZX | réseau spectrum 
Interface ZX2 


Micro-ordinateur ZX Spectrum 


16K RAM PAL 11490 F x SS 01 Manette de jeux Quickshot 
PERTE 7 140Fx C15| 
48 K RAM PAL 1965 F x SS 02 [ GESTION 
16 K RAM Péritel …. | 1850 F x SS 03] Interface ZX 2 Direction financière. 
48 K RAM Péritel [2325Fx]  [SS04| LS1FxT TS 10! | Géstion de fichier … 


Les logiciels-cartouches 


Pssst! | 185F x RS 01 
Interface ZX 1... 895 Fx detre LR RS TOTALE rares F] 
Câble RS 232 235Fx | ÉOOHÉ IEEE el | : 
DE "TT TRE 041 Indiquez dans chaque case la quantité com- 
FA as LIEOPR | Re 08) mandée. Effectuez le calcul du total etinscri- 
Space Raiders 185Fx | _ ÎRS 05! vez le résultat dans la case TOTAL. 
Planetoids............… 185F x RS 06 Votre commande vous sera adressée sous 
= 7] 3 semaines. 
Hungry Horace... 185 Fx RS Je Je paie par : chèque bancaire 
CES Lassereratessths 185Fx | [RSos! Re 
Microdrive ZX Backgammon _185Fx | RS 10] | établi à l'ordre de Direco International, joint 
940F x | __|SSO7 au présent bon de commande. 
. 5 ; hèque n'est encaissé avant l’expé- 
Boîte de 4 dis- se QHOanEneAS 1 
quettes done ds Les logiciels-cassettes dition du matériel). 
316Fx ss 09] | JEUX DE RÉFLEXION contre-remboursement* |[_"""] 


j T 1 * Contre-remb t taxe PTT (14,20 F. tout 
Cobalt (simul. de vol)|_ 95 Fx | COmande de ONE e SONDE AU-AOIR DONS EME 
ECRECS.: sisi 115Fx Nom 
Imprimante Alphacom 32 75 F " 
HO0FxT TC | Oihelo…........… TS ee 
140Fx | 
Adresse : - 
_s s 

Code postal L_1_1_1 1 _}Tél.: 


Signature (pour les moins de 18 ans, 
signature de l’un des parents): 


LLF1 


Au cas où je ne serais pas entièrement satis- 


Boîte de 5 rouleaux de papier : UTILITAIRES fait, je suis libre de vous retournerle matériel 
50F P To6OEx L  luSot dans les 15 jours. Vous me rembourserez 
150Fx | | PO2 | | Pascal... 260 F x Do, jee nes 
Modulateurnoiretblanc | ZX Trans... [ 95Fx]  |US0o8, = 5 
190F x | ___|CS 04 Devpac (Ass/Desass)| 160 F x US 02| Eng à à Ca 
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SE EP EE 


Microprocesseur Z 80 À e Langage Microsoft Basic + Affichage direct 
antenne télé SECAM ° Clavier 45 touches pleine écriture, + clef d’entrée, 
+ graphismes, + bip sonore anti-erreurs... + Texte + graphismes mixables 

9 couleurs e Edition et correction plein écran + Son incorporé 
e Toutes options : extension + 16 K + 64 . 
interface imprimante, imprimante, 


eva w 


Bt y DE CURE 19. t | 
 CHNOI Ras 4 SIG 
stylo optique, manettes, ns moin ee eHERIQUES : 
eux, modem, pe LASER SD ETT 
J Ë le désire recents EC AM cs Lis moi eur SEC ar £ ion mémo e GK "7 | | TC | 
disquettes. .… \: ASER SEC É nt sur l'antentie f . érégé à de is Lu s0 À 
Le LAS ; k ‘ | Ah TTC 
: se 07e R 10 ion 320 FTTE 
ttes GE JC 
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Pour votre ordinateur, Boîtes à outils MégaO Poche. 


Mine de rien, 


mine d'idées. 


À EL + von sn nus (D 


La collection MégaO Poche met à votre disposition des petits programmes tout prêts qui 
vous permettront de résoudre les nombreux problèmes de la vie quotidienne, de simplifier votre 
comptabilité, votre tableau de bord, la tenue de vos fichiers etc... 


are D 8 CR 


Actuellement 12 titres : pc Boîte à outils pour le navigateur de plaisance 
Boîte à outils pour PC1500 VACANCES — Boîte à outils pour ORIC - Tome 1 

Boîte à outils pour FX 702 P sd ___ Boîte à outils pour ORIC - Tome 2 

Boîte à outils pour Sinclair —<quien_ Boîte à outils pour Commodore 64 

Boîte à outils pour PC1251 N° Boîte à outils pour TI-99/4A 

Boîte à outils pour PB 100 et FX802P, Micro gestionnaire pour Sinclair 

TRS-80 PC-4 Micro compta pour Sinclair 


La collection MégaO Poche est diffusée par: 


P.S.I. DIFFUSION B.P. 86 77402 Lagny-sur-Marne Cedex 
POCHE Tél. : (6) 006.44.35  Télex : PSIDIF 600978F 


Envoyer ce bon accompagné de votre règlement à PSI DIFFUSION ou 
pour la Belgique et le Luxembourg à PSI BENELUX 


ou pour la Suisse à PSI SUISSE. 
Y {  P.SL DIFFUSION BP 86 - 77402 Lagny-S/Marne Cedex NOM a — ue _ 
4 FRANCE 
Téléphone (6) 006.44.35 ADRESSE a | . DESIGNATION | rex | 
P.S.L BENELUX | 
5, avenue de la Ferme Rose = : | 
: 180 Bruxelles BELGIQUE 
f Fa : Téléphone (2) 345.08.50 Code postal L__1 1 1.1 Ville | 
Î SFR EDR | en SUISSE 
Frais de | k LEE 
[ JO FF PTE ES = Le res | Paiement par chèque joint A Paiement en FF par carte bleue VISA | 
— FF GS D rx | Route Neuve {à PSE DIFFUSION uniquement) _— 
a 1700 Fribourg ———— [montants supérieurs à 30,00 FF exchusitement) TOTAL 3 
Tél: (037) 23.182 
RU jé dos Pl da le rame lus 


Signature (obligatoire pour poiement par carte de crédit) 


POURQUOI DIABLE 
PROGRAMMEZ-VOUS ? 


im ts ”E 


és ULATRICES programmables, 

ordinateurs de poche ou de table, c'est apparemment le même virus ou 
(qui sait ?) le méme démon. Une fois qu'il s'est manifesté, on change de 
loisirs. On délaisse ses distractions favorites pour se consacrer à la 
programmation. Que s'est-il passé ? 

Nous sommes des dixaines de milliers à pratiquer la programmation. 

Et le virus est contagieux... Pourquoi pianoter des heures durant (la nuit 
parfois) sur le clavier d'une machine ? 

Vous lirex ici différentes réponses à cette question. 

Elles proviennent de gens 

qui, pour la plupart, ne sont pas informaticiens de profession. 

Certains sont jeunes, d'autres moins. 

Ce qu'ils ont en commun : l'amour de la programmation. 

Comme vous le verrez, quelques-unes des raisons qu'ils avouent concordent, 
mais l'ensemble est très varié. 


Peut-être vous reconnaîtrez-vous en partie, ici ou là, dans ces courtes 
réponses ? Suffisent-elles, même rapidement, pour faire le tour de la 
question ? Probablement pas. 


I est possible que vous aimiez la programmation pour d'autres raisons 
encore. Dans ce cas, si cela vous dit, écrivez à LIST. Essayez d'expliquer 
à votre tour ‘pourquoi diable programmez-vous ?”” 

Quel démon vous à saisi ? 


JBC 


un programme. Quand ce pro- 
gramme tourne rond, c’est fini, 
plus besoin de réfléchir... en 
tout cas à ce problème-là ! 


Péerrik MOIGNE AU 


UNE FOIS 
POUR TOUTES 


ON travail dans un labo- 

ratoire photo m’'amène à 
manipuler des ordinateurs très 
‘“sérieux”” : contrôle de qualité, 
facturation, statistiques... 
Ceux-là, pour linstant, pas 
question de les programmer 
moi-même ! 

En revanche, pour un tas de 
petits calculs jusque-là assez 
pénibles, mon PC-1251 fait par- 
faitement l’affaire : il me per- 
met ainsi de traiter facilement 
calculs d'horaires, statistiques 
sur différents films ou contrôles 
d’échantillons de production. 

Le plus gros intérêt de la pro- 
grammation apparaît alors : il 
suffit de se creuser la cervelle 
une fois pour toutes et de créer 


JE PASSE POUR QUELQU'UN... 


E plus souvent, je mets au point des formules difficiles à 

comprendre. Et j’ai un très bon prétexte pour cela, je peux 
expliquer qu’elles sont courtes, qu’elles permettent de remplacer 
cinq lignes d'instructions, qu’elles contribuent à l’optimisation et à 
la simplification des programmes. 

Et comme personne autour de moi n’arrive à refaire mon raison- 
nement pour reconstituer la formule obtenue, et comme chacun 
constate qu’elle fonctionne bien, je passe pour quelqu'un qui s’y 
connaît bien ! C’est pour cela que je programme. 

Oui, je sais que mes formules alambiquées vont à l'encontre de 
la programmation structurée dont, justement, l’objet est de conce- 
voir des programmes simples à comprendre. Mais c’est tellement 
agréable de montrer sa supériorité technique. 


Thierry MACTHORE 
N° 1 - JUILLET AOÛT 84 


UN JOUR, 
MON MÉTIER 


U début, c'était un simple 
passe-temps pour m’occu- 
per entre deux cours. Des 
camarades de classe s’y sont 
mis à leur tour, et une sorte de 
compétition s’est instaurée 
entre nous. L’esprit de défi s’y 
est mis, puissante incitation s’il 
en est. Tout ce que mes cama- 
rades parvenaient à faire, il fal- 
lait que je le fasse à mon tour. 
Ensuite, le côté ‘‘outil de tra- 
vail”” a prévalu. Ce n’était plus 
dès lors vraiment un jeu. Main- 
tenant, j'essaye de toucher à 
tout ce qui se rattache à la pro- 
grammation, par curiosité, bien 
sûr, mais aussi dans l’espoir 
d’en faire un jour, peut-être, 
mon métier. 


Olivier ARBEY 


LOGIQUE ET 
INTUITION 


L fallait bien qu’un jour 

quelqu'un me demande 
pourquoi je programme... 
Croyez-le ou non : c’est la pre- 
mière fois que l’on me pose la 
question. On m'avait souvent 
demandé comment je pro- 
gramme. On m'avait parfois 
demandé sur quel matériel je 
programme, mais pourquoi je 
programme, jamais. 

La réponse est très simple. 
Elle est même évidente pour 
moi : c’est tout bêtement par 
goût de la logique ! 

Comment décrire la situa- 
tion? A ma gauche, une 
machine à qui l’on a appris des 
processus simples qu’elle peut 
enchaîner très vite pour passer 
de A à Z. À ma droite, mes cel- 
lules grises qui doivent se frei- 
ner pour ne pas sauter à pieds 
joints de A à Z. Car ces cellules 
grises sont capables de ce je-ne- 
sais-quoi, de cette intuition qui 
fait complètement défaut à la 
machine. Le combat entre ces 
deux adversaires me contraint à 
reconstituer tout ce que la 
machine ne fait pas. 

C’est là que l'intuition peut 
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POURQUOI DIABLE PROGRAMMEZ-VOUS 2 


apporter un ‘‘plus’”’, En 
somme, la programmation, 
c'est pour moi un défi lancé à 
mes cellules grises. 


Bernard LAMBEY 


UN JEU DE 


CONSTRUCTION 


NSEIGNANT la program- 

mation depuis bientôt 
quinze ans, je programme pour 
mon métier. Mais en vérité, je 
programme aussi pour mon 
plaisir, car programmer est un 
jeu de construction, une recher- 
che de rigueur, et parfois un 
défi à la logique, cette logique 
que l’on retrouve dans la struc- 
ture des langages. 

Ce qui me plaît surtout, c’est 
de retrouver les structures sim- 
ples et naturelles qui convien- 
nent le mieux à l’utilisateur ins- 
tallé devant un clavier et un 
écran. C’est là, me semble-t-il, 
que se situe l’une des difficultés 
majeures de la programmation. 
C'est là que se fait le lien entre 
l'ordinateur et l’homme. 


Max HAGENBURGER 


DES 
PROGRAMMES 
SUR MESURE 


OMME tous les gens 

curieux, je ne suis jamais 
satisfait : plus on découvre, et 
plus on a envie de découvrir. 
Dès qu'une étude est terminée, 
il faut avancer, il faut entre- 
prendre la suivante. La petite 


informatique, et particulière- 
ment la programmation est un 
domaine inépuisable pour qui 
veut apprendre, comprendre, 
initier, créer. 

Ce sont les applications tech- 
niques et scientifiques qui 
m'intéressent le plus. Le 
domaine est immense. On se 
rend compte très vite que ce 
l’on étudie est une infime partie 
du sujet. La modestie est de 
rigueur. 

Ecrire de petits programmes 
permet d’analyser un problème 
et d’appréhender ce qui se passe 
dans tous les cas de figure, car 
il faut que l’analyse soit com- 
plète. Les programmes prêts à 
l'emploi sont souvent lourds, 
mal commodes, et ils ne con- 
viennent pas toujours pour cer- 
tains cas originaux. Program- 
mer soi-même, c’est faire du 
‘‘sur mesure”. 

Mais les petits programmes 
ne sont pas tout. Il y a aussi le 
projet sérieux et suffisamment 
passionnant pour vous occuper 
quelques mois. Dans le 
domaine qui m'intéresse (la 
conception assistée par ordina- 
teur), malgré les développe- 
ments des logiciels, les travaux 
à entreprendre sont aussi nom- 
breux que variés. 

Les amateurs, c’est-à-dire 
ceux et celles qui ne sont pas 
programmeurs de profession, 
joueront, à mon avis, un rôle 
de plus en plus important dans 
les années à venir. Leur contri- 
bution, déjà, n’est pas négligea- 
ble. Et il est tout à fait possible 
que certains de leurs travaux 
dépassent ceux qui sont déve- 
loppés pas des professionnels. 


Claude NOWAKOWSKI 


AVANT TOUT 
LA CURIOSITÉ 


ON premier programme 

(HP-65, 1976) n'était pas 
professionnel. Seule la curiosité 
m'avait poussé à emprunter 
cette machine à un ami ingé- 
nieur. Après 12 heures de souf- 
france, je réussis à calculer 
automatiquement le plus grand 
de deux nombres. La curiosité 
reste la première motivation des 
heures que je passe devant mes 
TRS 80, Apple Ilc, Sharp PC- 
1500, HP-15C ou Casio 702 P. 
Faire le tour des possibilités de 


langages-machine, comparer 
des systèmes différents. 

Viennent ensuite les raisons 
professionnelles : programmes 
mathématiques (calculs d’inté- 
grales, résolution d’équations 
différentielles, tracés de cour- 
bes) en rapport avec mon. 
métier de professeur et/ou 
d’auteur de problèmes, mais 
aussi programmes de ‘“‘vulgari- 
sation” en vue de la rédaction 
d’articles pour cette revue et ses 
cousines, de livres, etc. 

Il m'est arrivé de program- 
mer à la demande pour aider un 
ami à résoudre un problème (le 
dernier : calculer l’aire d’un 
polygone donné par ses som- 


mets, pour un architecte). Cette 
activité exceptionnelle est par- 
stimulante, comme 


tel matériel, essayer de contrer 
ses déficiences par des astuces | , 
(personnelles, copiées dans des fois très 
revues, piquées à des amis), tout défi. 
comprendre telle obscurité des André WARUSFEL 


LE BÉBÉ PLEURE... 


Comme il est doux de programmer 
Quand autour de moi tout s’agite…. 
Faut-il m’en plaindre ou m’en blâmer ? 
Ai-je des torts ou du mérite ? 


Les yeux rivés sur mon écran 

Depuis si longtemps que j’en louche, 

Je programme un jeu délirant 

Et mes doigts vont de touche en touche. 


Le bébé pleure, et je poursuis 
L'œuvre toujours inachevée, 

Sans plus trop savoir où j’en suis. 
La vaisselle n’est pas lavée, 


Ma tendre épouse n’a rien dit 
Ce soir encore. Et je programme... 
Et je programme... (en érudit) 


Un jeu qui peut plaire à ma dame ! . 
APPAIEE Robin BOIS 


ET PUIS UN JOUR... 


RAND ciel bleu, pas l'ombre d’un nuage ; une légère brise 
d’alizé rafraîchit doucement le mouillage... Et quel mouil- 


lage : pratiquement entourée de toute part d’îles basses ébouriffées 
de cocotiers et cernées de sable étincelant, une piscine naturelle 
ovale émaillée de tous les bleus de la création, bleu turquoise, bleu 
d’outremer, bleu roi, bleu profond. De temps en temps une 
mouette curieuse ou une tortue oisive viennent tourner autour de 
mon bateau à l’ancre, et se demandent bien pourquoi je ne sors pas 
profiter du soleil, de l’eau limpide, des plages dorées. 


Non, pas pour l'instant. Le soleil, c’est pour plus tard. Pour 
l'instant, GOSUB, PEEK, POKE et CLOAD. Excusez-moi, à 
l'heure qu’il est, seul à l’ancre, loin de toute civilisation, j’ai le nez 
plongé dans mon ordinateur de poche et... je programme ! 

Si je vous disais que c’est par goût pour la bande dessinée que je 
suis venu, ou plutôt revenu, à l’informatique ? 

1964. Les ordinateurs ont fait du chemin depuis... A l’époque, 
ils balbutiaient leurs premiers mots de Basic ou de Fortran. Et ce 
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n’est qu'avec l’âge qu’ils ont vu diminuer leur taille : celui de 
l’Université de Princeton, USA, où j’avais failli faire un stage cette 
année-là, occupait plusieurs étages d’un grand bâtiment. 

Aujourd’hui, grâce aux circuits intégrés, il pourrait sans doute 
tenir dans le coin d’un bureau. Mais voilà, alors que je terminais 
mes études d’ingénieur à l’Ecole Centrale (où, bien sûr, n’existait 
encore aucune spécialisation ‘‘informatique’’), ma vie avait pris un 
fameux tournant, et le projet de stage d’un an sur l’ordinateur de 
Princeton avait été bien vite balayé, remplacé par des tournées, des 
Olympia, des émissions de télévision et de radio. Bref, j'étais 
devenu un chanteur populaire, et pendant plus de quinze ans, je ne 
fus qu’un témoin tout à fait passif de la révolution informatique 
qui envahissait tous les domaines. 

Cette révolution aurait pu m’atteindre, pourtant, par le biais de 
la musique : d'année en année, les ‘‘claviers”’ faisaient de plus en 
plus appel à l'électronique ou à la programmation. Si piano et 
orgue gardaient leur place, on voyait apparaître chaque jour des 
synthétiseurs recomposant les sons à partir de leurs composantes 
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élémentaires. Les enregistrements sont devenus numériques, et les 
musiciens qui ‘‘jouent des claviers’’ débarquent en studio entourés 
de véritables pyramides d’instruments superposés, où chaque son, 
imitation d’un son réel, création ou élucubration du musicien, doit 
être programmé... Michel Magne, grand spécialiste en la matière, 
auteur de nombreuses musiques de films, m’avouait qu’il prenait 
peur parfois, quand certains de ses instruments se remettaient à 
jouer tout seuls la nuit, pataugeant dans l’aléatoire et synthétisant 
à tous vents ! 

Moi, je ne sais pas jouer des claviers, ma guitare est restée acous- 
tique, et pour l’informatique, je n’étais qu’une ligne de DATA 
dans les ordinateurs des ‘‘Big Brothers” qui nous immatriculent 
(quand l’ordinateur n’avait pas, comme celui de la Sécurité 
Sociale, perdu purement et simplement ma trace, affirmant que je 
n’existais pas !). 

Et puis un jour... c'était, je m’en souviens très bien, dans une 
librairie de Pointe-à-Pitre, Guadeloupe, où j'avais fait escale en 
venant du Brésil. Heureux de retrouver des publications en fran- 
çais, j'y achetais une brassée de ces magazines de bandes dessinées, 
Fluide Glacial, l’Echo des Savanes, A Suivre, qui font mes délices, 
quand mon attention fut attirée par la couverture d’un mensuel 
que je ne connaissais pas. Elle était signée par Gibrat, un illustra- 
teur dont j'aime le style. 

Magazine de ‘‘Bédé’”’ ? J’ouvre... pas du tout... qu'est-ce que 
c’est que ça ? Effaré, je découvre, page après page, des listes de 
chiffres, de symboles, de phrases absolument incompréhensibles. 
Piqué au vif, je feuillette et rien, rien, je n’y pige rien ! Çà, c’est 
trop fort ! Ce magazine, ça a certainement une grande diffusion, 
pour qu’on le trouve même dans cette petite librairie perdue. Ils 
sont donc des dizaines de milliers à comprendre tout ça !.. Et je 
suis censé ne pas être plus c... qu’un autre. Alors quoi ?.. 

Rageur, j'achète le magazine, et pendant trois jours mon équi- 
pière a pu me voir lire et relire, de bas en haut, de haut en bas et 
en diagonale, des pages entières auxquelles je ne comprenais tou- 
jours rien ! 

Moi, vous me connaissez, je n’allais pas m’avouer vaincu... 
Rentrant passer quelques semaines en France au printemps 83, 
j'avais pris la ferme décision de me renseigner sur ces langages obs- 
curs.. L’ami chez qui j'allais passer quelques jours, le directeur 
des chantiers Prometa, constructeur de mon bateau, venait de 
s’acheter un PC-1500... 

A partir de là, vous devinez le scénario : nuits blanches où l’on 
s’étonne de voir le ciel s’éclaircir alors que l’on n’a pas encore très 
bien compris la différence entre une virgule et un point virgule, 
entre un GOSUB et un GOTO, joie devant le premier programme 
qui ‘‘tourne”’, colère quand apparaît pour la centième fois 
“ERROR 1 IN 150”... Et toujours l’envie de penser que c’est la 
machine qui a quelque chose qui ne va pas... Non, elle ne se 
trompe jamais, c’est toi qui t’es planté dans l’affectation de tes 
variables ! 

Conquis par le PC-1500, j’en ai embarqué un à bord de mon 
voilier, où je recharge l’accu de l’imprimante à partir du 12 V de 
mes batteries. Bien sûr, sitôt que j’ai pu à peu près maîtriser le lan- 
gage, je me suis intéressé aux programmes de navigation de Lucien 
Strebler publiés au fil des nombreux numéros de l’Ordinateur de 
poche. Je m’en suis inspiré, je les ai adaptés pour le PC-1500 (qui a 
l’avantage de comporter une horloge-calendrier permanent, bien 
pratique pour tous les programmes de navigation). 

J'ai développé les programmes et je me sers maintenant en navi- 


ERROR 1 IN 150 ? 
QUOI? C EST ONE 


BLAGUE 
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Après l'Ecole Centrale, 

la chanson , la navigation, efc., 
Antoine à découvert. 

la programmation ! 


gation de mon ‘‘grand”” programme de 9000 pas qui me permet de 
faire le point sur le soleil, la lune, les planètes et 40 étoiles, de faire 
en trois couleurs les tracés de navigation, de tenir mon estime, de 
calculer la distance à n’importe quel point du monde. 

Puis j’ai découvert avec plaisir que le service hydrographique de 
la Marine venait de publier un livre permettant de calculer sur PC- 
1500, entre autres, les heures et les hauteurs des marées un peu par- 
tout dans le monde. J’ai injecté ce programme à mon PC-1500 et 
hop là, je peux vous dire à quelle heure je vais pouvoir rentrer dans 
telle petite baie peu profonde où je suis sûr d’être seul à l’ancre ! 
Jeux, exercices variés, dessins, je peux faire dessiner à l’imprimante 
un pavillon anglais, américain (avec les étoiles !) ou japonais 
(quand il dessine ce dernier, on croit voir perler une petite larme de 
nostalgie au coin de la touche Shift. nostalgie du pays natal ?). 

Plus récemment, je me suis mis au langage-machine, et si je m’y 
perds encore entre AEX et DRL, SJP et BCS, je passe tout de 
même de sacrés bons moments. jusqu’à ce qu’un POKE malen- 
contreux m’oblige à un ALL RESET salvateur ! 

Mes projets ? Ne le dites pas à mon PC-1500, mais j'envisage de 
le compléter prochainement par son grand-frère, le PC-5000, de 
Sharp aussi, qui me semble avoir tous les avantages d’un ordina- 
teur de table (grande mémoire, possibilité de stocker de nombreu- 
ses données, ce qui me sera utile pour écrire livres et articles grâce 
au traitement de texte incorporé, et imprimante qualité courrier), 
sous l’encombrement d’une petite machine à écrire portable, et 
fonctionnant sur 12 V avec une faible consommation, donc utilisa- 
ble à bord de mon bateau. J’attends avec impatience qu’il soit dis- 
ponible avec le clavier Azerty. 

Cela dit, je vous quitte pour finir de mettre au point mon pro- 
gramme de ‘‘trouveur d’étoiles”’, et puis j’essaierai quand même 
d’aller faire un petit tour au soleil. Quel virus, l’informatique : 
l’autre jour, je me suis surpris à esquisser une subroutine en la tra- 
çant du doigt sur le sable de la plage ! 


ANTOINE 
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Brains-Navarre 


_ CASIO PB 100 


LE BASIC PAS SORCIER 


PB 100: UN ORDINATEUR DE POCHE ET LA METHODE 
VIVANTE POUR DIALOGUER AVEC LUI. “Apprenez par la Prati- 


que”, enfin une méthode simple pour s'initier à la programmation ! Avec des exem- 
ples amusants, des exercices faciles et même des jeux... Progressivement, en vous 
servant de votre ordinateur personnel PB 100 (800 octets), les instructions prépro- 
grammées en Basic, le clavier ASCCI avec114 caractères différents, le traitement de 
chaînes de caractères, les boucles, les sauts, les tests, etc. n'ont plus de secret pour 
vous. Vous avez tellement fait de progrès que vous y ajoutez un module RAM qui 
porte la capacité de mémoire à 1800 octets, une imprimante et un interface pour 
stocker vos programmes sur un magnétophone à cassettes. Et puis, vous serez 

membre du Club Casio qui est là pour vous aider. En vente dans les papeteries et 
magasins spécialisés. Distributeur exclusif: 


Ets Noblet Paris. { A =: f [æ 


CA COMPTE 


EN 7 À 


évolue trop vite), et pourtant 
l'ouvrage est excellent. On l’uti- 
lisera plus comme un diction- 
naire que comme une encyclo- 
pédie. 


Dictionnaire du Basic 
Encyclopédie du langage 
Basic 

David A. Lien 

Traduit de l’américain par 
Yves Leclerc 

Éditions du P.S.I. 

Lagny, 1983 

Broché, 448 pages 

Prix : 195 FF 


Après une introduction sur la 
programmation, rapide mais de 
bon conseil, suivent environ 
quatre cents fiches décrivant 
chacune une fonction Basic : sa 
définition, un court 
programme-test aidant au dia- 
gnostic, une autre routine pour 
simuler cette fonction sur les 
ordinateurs qui en sont dépour- 
vus et enfin la liste des instruc- 
tions Basic à consulter pour 
mieux utiliser cette fonction. Il 
est à chaque fois précisé si l’on 
a affaire à une commande, un 
opérateur, une déclaration ou 
une fonction Basic, et si celle-ci 


E crire ce livre était une 
gageure. Bien entendu, on 
ne doit pas s’attendre à y trouver 
tout-tout-tout sur le Basic et ses 
différents patois (ce langage 


Ce sont des copains 


Dans Votre Ordinateur, le premier 


« Cahier de plaisirs de vacances en informatique » 


ls ne nous parlaient plus. Si nous 

abordions leur table au restaurant, 
ils s’enfermaient dans le silence. Et, 
plus le printemps avançait, plus leur 
teint affichait la pâleur des nuits de 
travail ! 

Mais que nous concoctait donc 
l’équipe de Votre Ordinateur ? Un 
numéro d’été bien spécial, une petite 
bombe : le numéro 6 de Vorre Ordi- 
nateur comportera un cahier de 64 
pages supplémentaires intitulé 
« Cahier de plaisirs de vacances en 
informatique ». 

Ce cahier est destiné aux « can- 
cres » en informatique ; à ceux qui, 
s'ils n’y connaissent rien, n’en sont 
pas moins intéressés par le sujet. En vingt leçons, ils devraient 
acquérir une approche générale du propos. 

De plus, en juillet, le soir à 21 h sur France-Inter, la rédaction 
de Votre Ordinateur racontera avec Jacques Pradel (dans le cadre 
de l’émission Adrénaline) « Silicium blues », à savoir la grande et 
palpitante histoire de l’informatique ! 

Ouvrez bien vos oreilles : un concours doté chaque semaine d’un 
bon de 4 000 FF pour acheter l’ordinateur de votre choix dans la 
boutique de votre goût sera proposé aux auditeurs-lecteurs d’Adré- 
naline - Votre Ordinateur. (ml 


GAGNEZ DES ORDINATEURS ! 


Une interface-cassette 
pour le PB-700 


asio propose une autre interface-cassette pour son PB-700 : la 
FA-4. Elle n’est pas dotée de l’imprimante de la FA-3, mais con- 
serve des dimensions relativement imposantes. 

En contrepartie, le prix a largement diminué (environ 750 FF), et 
le dos de la FA-4 comporte une sortie parallèle pour imprimante. 
Rappelons que l’interface-cassette permet également de relier deux 
PB-700 pour un transfert de données. 
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possède d’autres noms cou- 
rants. 

Malheureusement, ce point 
n’est pas complet pour les ordi- 
nateurs domestiques européens 
de type Spectrum, ORIC, DAI 
(ou même pour le TI 99/4A). 

On trouve en fin de livre un 
index regroupant cinq cents 
fonctions Basic, mais pas de 
tableau croisé. Cet ouvrage 
volumineux permet d’avoir un 
bon aperçu du Basic tel qu’on 
le pratique aux USA (le livre est 
traduit de l’américain) et de dis- 
poser d’un outil agréable de tra- 
duction de programmes. Mais 
l'utilisateur d’un seul ordina- 
teur préférera le plus souvent se 
reporter à la notice de son 
appareil. 


MA 
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Faites-vous connaître. 


partie d’un club d'informatique, sans but 
UOet RE NOIEteend et pratique la programmation et 
si vous recherchez de nouveaux 
existence. En lisant votre adresse dan 
de nos lecteurs seront contents d’apprendre 
n’est pas trop loin de chez eux. 


adhérents, signalez-nous votre 
ces colonnes, beaucoup 
que votre club 


HP-71 B : 
le nouveau poquette de Hewlett-Packard 


u concentré d’ordina- 


teur... Jugez-en vous- 
même : 17,5 Ko de mémoire 
vive, un Basic étendu (64 Ko de 
mémoire morte, et un mode 
CALCul, le tout dans un 
volume très modeste (19 x 8,7 
x 1,2 cm). 

En regard, le prix : environ 
5 600 FF ttc. Le HP-71 B n’est 
donc pas un poquette destiné 
aux lycéens. Le clavier 
(QWERTY) est une réussite : 


touches noires et blanches, 
caractères en bleu, ocre, noir et 
blanc. Les différentes fonctions 
ont été judicieusement regrou- 
pées par zones utiles (statisti- 
ques, fichier, programme, etc.). 
Avec un peu d’entraînement, 
on s’y retrouve bien. 

A l'affichage, 22 caractères 
(8 X 132 points adressables par 
colonnes seulement) sur une 
« ligne » virtuelle de 96 caractè- 
res. 
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Le Basic du HP-71 B est par- 
ticulièrement performant pour 
un ordinateur de poche ; il ren- 
drait bien des points à certains 
ordinateurs de table. A titre 
d'exemple, notons qu’il est pos- 
sible de redéfinir tout le clavier 
sauf deux touches et que les cal- 
culs se font sur quinze chiffres 
avec douze affichés, sauf si l’on 
opte pour la demi-précision ou 
pour les variables entières ! 

La notion de variables locales 
donne accès à la récursivité et 
l'utilisateur peut créer sa propre 
police de 128 caractères. Les 
GOSUB et autres FOR/NEXT 
ne sont limités que par la 
mémoire vive, et les fonctions 
PEEKS$ et POKE attendent les 
programmeurs en langage- 
machine (le manuel, toutefois, 
n’est pas encore 
commercialisé). Le traitement 
des erreurs est très élaboré, y 
compris celui des erreurs 
mathématiques : cela peut aller 
jusqu’à identifier le signe de 
zéro ou jongler avec l'infini ! 

La présence de 128 indica- 
teurs binaires (une moitié pour 
le système, l’autre à la discré- 
tion de l'utilisateur) permet 
d’autres acrobaties. Une fonc- 
tion BEEP, paramétrable en 
fréquence et durée avec deux 
niveaux d'intensité, sonorise 
l’ensemble. Une petite indica- 
tion sur la vitesse d'exécution : 
le HP-71 B travaille pendant 9 
secondes et 27 centièmes pour 
venir à bout d’une boucle FOR 
1 = 1 TO 1000 @ NEXT 1. Ce 
n’est donc pas un bolide. 

Les fonctions statistiques 
traitent jusqu’à 15 variables 
d’un coup (2 sur la HP-41). 
Une horloge, un calendrier et 
quelques fonctions subsidiaires 
permettent, entre autres appli- 
cations, de faire démarrer des 
programmes à l'heure dite. 
Parmi les gadgets appréciés : 
STARTUP exécute des instruc- 
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également HEWLETT PACKARD : H. 
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tions dès l’allumage, LOCK 
contrôle l’utilisation du 
poquette avec un mot de passe, 
et CONTRAST règle l’afficheur 
par programme... Cela étant, 
on regrettera, pour certaines 
applications, que les tableaux 
soient limités à deux dimensions 
et que leurs noms, ainsi que 
ceux des variables aient au plus 
deux caractères. Dommage. 


La mémoire vive (17,5 Ko 
dont 1 environ est utilisé par 
l’ordinateur) se répartit en deux 
zones. La première, la princi- 
pale, peut être perdue au cours 
d’un MEMORY LOST ou 
INIT/3. La seconde est indé- 
pendante : on la crée par blocs 
de 4 096 octets, et elle est proté- 
gée contre les accidents de ce 
type. Les programmes qui y 
sont stockés sont directement 
exécutés par simple appel de 
leur nom. Quant aux fichiers de 
données, ils sont de trois types : 
DATA, TEXT (échange avec 
d’autres ordinateurs de table 
HP) et SDATA, spécialement 
prévu pour les échanges avec la 
HP-41. 


Si les quelques 240 instruc- 
tions de ce Basic ne suffisent 
pas, il sera par la suite possible 
d’en ajouter grâce aux modules 
de mémoire morte BIN et LEX 
(extension de langage), conte- 
nant des programmes en 
langage-machine. Quatre petits 
logements situés sur la face 
avant du poquette permettent 
en effet de brancher des modu- 
les de mémoire vive ou morte. 
A l'arrière de la machine, on 
trouve le connecteur prévu pour 
la boucle HP-IL et, sur la pla- 
tine, une petite trappe a été 
ménagée pour recevoir un lec- 
teur de cartes magnétiques. 


Parmi les facités qui don- 
nent un petit « plus » au HP- 
71, retenons la pile d’instruc- 
tions, contenant les cinq derniè- 


et accessoires 


res « fonctions » demandées 
par l'utilisateur. Ces « fonc- 
tions » sont, selon les cas, la 
dernière ligne de programme 
entrée, le dernier calcul 
demandé ou même une série 
complète de calculs. Ainsi, une 
expression telle que PI + 4 * 
COS (3 + 3 x FACT(X) — 16 
* LOG(312) n'occupe qu’un 
seul niveau de la pile. Pour 
remplacer FACT(X) par 
FACT(H), un petit coup sur A 
puis sur > pour placer le cur- 
seur sur X, on tape H, puis 
END LINE et l'expression est 
entièrement réévaluée ! Et ce 
n’est qu’un exemple de ce que 
l’on obtient avec le mode 
CALC et la pile d’instructions. 

L'alimentation électrique est 
assurée par quatre petites piles 
de 1,5 V, mais la connexion sur 
le secteur est possible (en 
option). 

Les périphériques disponi- 


M UN LIVRE 


Programmer sur 
calculatrices et 
ordinateurs de poche 
Michel Appert et 
Bertrand-René 

de Fraguier 

Editions Dunod 
Paris, 1983 

Broché, 102 pages 
Prix : 57 FF 


L: pratiguide est un 
ouvrage d'initiation à la 
programmation des ordinateurs 
de poche. Parallèlement, des 
applications présentent une 
comparaison complète des trois 
langages-types : AOS sur TI-57, 
RPN sur HP-15C, Basic sur 
PC-1211/1212. 

Le livre a donc une vocation 
double : la première partie 


ORDINATEURS DE POCHE 


SUPER PROMOTION 


SUR STOCK !! 


PC 1245 . PC 1255 


PC 1401. PC 1251. PC 1500A 
Bientôt PC 1260 - PC 1261 


MAUBERT ELECTRONIC importateur 


49, bd. St Germain. PARIS 5° TEL. 325.88.80 
P.71-CANON : XO7 -CASIO:P.B.700 ETC... 


bles, mis à part le lecteur de 
cartes dont le logement est 
prévu, sont très nombreux 
puisqu'ils comprennent 
d’emblée la gamme HP-IL 
(imprimantes, interfaces vidéo, 
lecteur de cassette, etc.). Un 
module Forth/Assembleur est 
annoncé, qui devrait considéra- 
blement augmenter la puis- 
sance, déjà non négligeable, du 
HP-71 B. 

La documentation fournie 
impressionne par son volume : 
plus de 760 pages, partagées en 
un manuel d'utilisation (300 
pages), un manuel de références 
(400 pages) et un aide-mémoire 
(60 pages) qui se glisse dans la 
poche prévue à cet effet à 
l’intérieur de la housse. 

Comme il est indiqué dans le 
manuel d’utilisation, le HP-71 
ne s’adresse pas aux novices en 
informatique : c’est un engin 
plutôt professionnel. OA O 


dunod 


AOS, RPN ou BASIC 


développe le principe de fonc- 
tionnement des calculatrices et 
des ordinateurs en général, puis 
expose les bases de la program- 
mation ; la suite de l’ouvrage 
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est consacrée à l'examen de 
douze programmes et de leur 
fonctionnement sur chacune des 
machines. Bien sûr, il n’est pas 
nécessaire de les posséder toutes 
les trois, au contraire : la pré- 
sentation comparative peut sou- 
vent aider le lecteur à détermi- 
ner les capacités de l’ordinateur 
de poche dont il a besoin. 


Le mérite des auteurs réside 
d’abord dans la clarté et la con- 
cision du premier chapitre : 
celui-ci a pour objet de définir 
par le menu ce que peut faire 
un ordinateur, quel qu’il soit, 
lorsqu'il effectue une opération 
donnée. 


Les différents langages, types 
de mémoires et périphériques 
sont démythifiés en quelques 
pages qui comptent pour beau- 
coup par la suite lorsqu’il s’agit 
d'écrire ‘‘l’algorithme’”’ : on 
copie le fonctionnement de la 
machine. 


Ce passage important à la 
rédaction du programme est 
détaillé au chapitre suivant, 
ainsi que l’ensemble des instruc- 
tions des ordinateurs de poche. 
A part les différences de nota- 
tions, beaucoup d'instructions 
sont communes aux trois, 
comme le montrent les exem- 
ples choisis. Quelle notation 
faut-il préférer ? Restons 
impartial ! Chacune a ses adep- 
tes, celle des auteurs est peut- 
être RPN, mais les machines 
sont toutes examinées avec le 
même soin, fort heureusement ; 
l’idéal est de les bien connaître, 
toutes. 


Si les exemples qui viennent 
ensuite semblent peu originaux, 
la manière dont ils sont traités 
rehausse leur valeur. Six jeux — 
très classiques — permettent de 
saisir les ficelles de la program- 
mation, tandis que cinq pro- 
grammes mathématiques utili- 
sent ces ficelles avec brio : plus 
que le programme, c’est la 
méthode qui prime. Les pro- 
grammes de calcul intégral, de 
statistiques, de décomposition 
en facteurs premiers sont très 
optimisés et donnent d’excel- 
lents résultats, à la différence 
des programmes habituels : les 
méthodes simples, logiques, 
sont meilleures. 

Derrière ce livre présenté 
intelligemment, on aurait aimé 
trouver une liste d’exercices 
pour mieux maîtriser certains 
aspects de la programmation : 
manipulation des mémoires, 
etc. Mais ce n’est pas le but de 
cet ouvrage, limité aux petites 
machines. Nous reprendrons la 
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conclusion des auteurs : ‘‘Tra- 
vaillez, prenez de la peine”, car 
c’est bien la meilleure école. La 
programmation est-elle autre 
chose qu’une réflexion intellec- 
tuelle qu’il faut maîtriser ?.…. 
MA [] 


Votre premier programme 
Basic 

Rodnay Zaks 

Editions Sybex 

Paris, 1984 

Broché, 208 pages 

Prix : 98 FF 


es ouvrages d'initiation au 

Basic sont légion. Mais il 
en est peu qui savent faire un 
judicieux dosage des explica- 
tions. Certains sont simples 
mais restent enfantins. D’autres 
sont plus complets, mais sont 
sévères et peu accessibles. Votre 
premier programme Basic a su 
trouver un bon équilibre. 11 est 
vraiment destiné aux débutants 
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en informatique. C’est un excel- 
lent bouquin à acheter si la 
notice de votre ordinateur se 
contente de décrire des instruc- 
tions, sans vraiment expliquer 
la logique du langage Basic et 
les principes de la programma- 
tion. 

La progression, de chapitre 
en chapitre, est bien dosée. 
Cela commence avec une des- 
cription de l’ordinateur et du 
langage Basic. Puis on attaque 
les calculs, les variables, l’écri- 
ture d’un programme, les tests 
et les répétitions. Un chapitre 
est réservé à la conception des 
programmes : algorithme, orga- 
nigramme, etc. 

On peut regretter que le livre 
n’aborde pas certaines instruc- 
tions qui désarment souvent le 
débutant, comme le traitement 
des chaînes de caractères, le 
couple READ-DATA ou l’ex- 
ploitation des tableaux. Mais il 
est destiné à l'initiation d’un 
Basic minimum et il guide bien 
le novice dans ses premiers pas. 

La présentation en est agréa- 
ble, aérée et mise en valeur par 
Putilisation de deux couleurs : 


Du nouveau pour le Spectrum 


noir pour le texte, rouge pour 
les titres et les représentations 
d'écran. Des illustrations 
récréatives renforcent le texte. 
Enfin, la couverture du livre 
est une incontestable réussite. 
Elle a d’ailleurs été primée, 
comme la plus belle couverture 
dans la catégorie enseignement, 
au dernier Salon du Livre. 
Xd1LT D 


VOTRE PREMIER PROGRAMME 


L'interface ZX1 et les lecteurs de microcartouches 


ongtemps annoncés, long- 

temps attendus par les 
« Sinclairistes », les « microdri- 
ves » sont enfin disponibles en 
France. 

Lors de la sortie du Spec- 
trum, une mémoire de masse 
était annoncée dans le manuel. 
Cette mémoire de masse était 
intitulée « microdisque ». De 
disque il n’y a pas, car il s’agit 
d'une bande magnétique sans 
fin dans un petit étui plastique 
de 4,5 cm sur 3,5 cm pour une 
hauteur de 7 mm. Mais avant 
tout, il est nécessaire de parler 
de l'interface ZXI1. 

Cette interface est enfichée 
sur le connecteur du Spectrum 
et repose sous celui-ci. Le cla- 
vier se trouve alors légèrement 
incliné, offrant une position 
plus ergonomique. Trois nou- 
velles fonctions étendent alors 


les possibilités de l’ordinateur. 

La première est celle qui était 
attendue : pouvoir disposer 
d'une mémoire de masse 
d'accès rapide grâce aux car- 
touches de bandes sans fin. 

La seconde est une interface 
RS232 ouvrant le Spectrum sur 
un environnement informatique 
non spécifiquement Sinclair. 
Cette interface-série permet la 
connexion à des imprimantes, 
des modems, d’autres ordina- 
teurs. 

Les entrées et sorties réalisées 
par cette voie sont facilement 
mises en œuvre par des instruc- 
tions du Basic étendu, appor- 
tées par l'interface ZX1. Deux 


Vue arrière 
sur l’interface 
ZXTI du Spectrum 


types de canaux peuvent être 
ouverts sur l’interface RS232, le 
canal « t » qui gère des caractè- 
res définis sur 7 bits, et le canal 
«b » qui prend en compte le 
huitième bit des caractères. Sur 
ces deux canaux, par un simple 
POKE sur une variable 
système, on définit le débit de 
transmission, débit standard 
compris entre 50 et 19 200 
bauds, ou débit non standard. 

La troisième fonction permet 
d'établir un réseau entre 2 à 64 
Spectrum à l’aide de simples 
câbles jack-jack. Il est probable 
que l’on pourra aussi connec- 
ter, grâce à ce réseau, le futur 
produit Sinclair, le Quantum 
Leap ou QL (toujours pas dis- 
ponible en France). De même 
qu'avec l'interface RS232, les 
transmissions sont aisément éta- 
blies par l’intermédiaire d’ins- 
tructions du Basic étendu. 

Le réseau permet ainsi de 
faire communiquer plusieurs 
ordinateurs, de faire profiter 
l'ensemble des interlocuteurs 
d’une imprimante, ou de pro- 
grammes stockés sur la cartou- 
che de tel ou tel Spectrum. Une 
fonction très intéressante donc, 
pouvant être mise à profit, par 
exemple, dans une classe 
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d’école, comme il est montré 
dans la notice d’emploi. Cha- 
que ordinateur doit alors être 
muni d’une interface ZXI1. 

Venons-en enfin aux lecteurs 
de cartouches ! Un minimum 
de 85 Ko stockés sur un mince 
ruban magnétique. Un temps 
moyen d’accès à un fichier, 
programme ou bloc d’octets, de 
3,5 secondes. Mais c’est un 
temps moyen! On charge 
48 Ko en 9 secondes ! 

Les commandes de sauve- 
garde, chargement, vérification 
et fusion de l’interface-cassette 
sont aussi disponibles. 

Outre ces commandes, on 
peut ouvrir dès fichiers pour y 
stocker des données de façon 
séquentielle. Les données alpha- 
numériques et numériques peu- 
vent être mixées dans le fichier. 
Une fois les données enregis- 
trées, le fichier doit être fermé. 
Mais il ne peut plus, alors, être 
ouvert qu’en lecture, ce qui est 
un sérieux inconvénient. En 
effet pour modifier une donnée, 
il faut ouvrir un nouveau 
fichier et reprendre une par une 
les données pour les y recopier 
toutes. Alors seulement, on 
peut effacer l’ancien. Cette 
limitation entraîne une petite 
gymnastique de programmation 


pépech 
avant la nouve 
cass 
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DUPLICATION DE VOS PROGRAMMES 
INFORMATIQUES SUR CASSETTE 


ez-VOUS 
ile taxe Sur leS 


ettes vierges: 


CASSETTES VIERGES POUR P.S.I. 


prix pièce 


COMMANDE : 
par boîte de 25 exemplaires 


PRIX : 
T.T.C. frais de port inclus 


REGLEMENT : 
à la commande 


CAISEULES LE TÉMOIGNAGE 


51, rue de Ville-d'Avray 


dont on se serait bien 
dispensé. 

Tout comme avec un lecteur 
de vraies disquettes, on peut 
obtenir un catalogue des noms 
de fichiers, de programmes, de 
blocs d’octets.. Une procédure 
intéressante a été prévue. A la 
suite d’une réinitialisation du 
Spectrum, à la mise sous ten- 
sion, ou après un NEW, si l’un 
des programmes stockés sur 
cartouche porte le nom 
« run », on obtient son charge- 
ment en tapant simplement la 
commande RUN du Basic, vali- 
dée par ENTER. On peut ainsi, 
sur chaque cartouche, mettre 
un programme « run » qui affi- 
chera le menu de la cartouche 
et chargera le programme 
choisi. 

Physiquement, le lecteur de 
cartouches se présente sous la 
forme d’une boîte (9 cm sur 
8,5 cm et 4 cm de haut). Sur sa 
face avant se trouvent l’ouver- 
ture, où l’on insère la cartou- 
che, et une petite diode rouge 
qui s’allume lors de la mise en 
route du moteur. Le lecteur est 
relié par un court fil en nappe. 
Il est aussi possible de le solida- 
riser avec sept autres lecteurs en 
série. 

Au niveau de la fiabilité, il 


boîte de 25 


212,50F 


275,00F 


est encore un peu tôt pour se 
prononcer. Néanmoins, les car- 
touches semblent relativement 
fragiles, et elles ne sont pas 
données (75 FF). Un signe de 
vieillissement est l’augmenta- 
tion du temps de chargement 
d’un programme. Le pro- 
gramme est lu et relu tant que 
les sommes de contrôle ne sont 
pas correctes. 

Sinclair a modifié son inter- 
face ZXI1 plusieurs fois ; celle 
que j'ai essayée est une qua- 
trième version. Il est probable 
qu’elle comporte encore quel- 
ques petites bogues. J'ai dû 
parfois couper l'alimentation 
alors qu’une cartouche était 
dans le lecteur, ce qui est forte- 
ment déconseillé. Une nouvelle 
version, revue et corrigée, est 
sans doute en cours. 

Quoi qu’il en soit, l’agrément 
apporté par cette mémoire de 
masse prévaut largement sur ces 
petits ennuis épisodiques. Et 
l’on doit tenir compte aussi du 
prix, nettement moins élevé que 
celui d’un lecteur de disquette 
conventionnel. L'interface ZXI1 
vaut 895 FF, le lecteur de car- 
touche 940FF, et le câble 
RS232 235FF (ttc). Distribu- 
teur : Direco International. 

BT © 


Langage-machine 
et PC-1250/1251 


e manuel de référence du 

langage-machine pour PC- 
1250/1251, édité par Sharp, est 
arrivé. Cet ouvrage de cent 
pages, au format 21 X 29,7, est 
rédigé en anglais. 

On y trouvera bien sûr la des- 
cription des 115 instructions du 
langage-machine (près de 
soixante pages leur sont consa- 
crées). Mais on trouvera aussi 
une foule d’autres renseigne- 
ments sur les PC de la série 12, 
le processeur qui les équipe, la 
carte de la mémoire, la repré- 
sentation des variables, etc. 

Cet ouvrage, agréable à con- 
sulter, est un manuel de réfé- 
rence ; il. ne suffira donc pas 
pour une première initiation au 
langage-machine. 

On devrait pouvoir se le pro- 
curer (comme le manuel corres- 
pondant pour PC-1500) auprès 
du club des Sharpentiers pour 
le prix de 150 FF, port non 
compris. 

Pour tout 
écrire au club : 
SBM (Sharpentier) 

151-153, avenue Jean Jaurès 
93307 Aubervilliers Cedex 


renseignement, 
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EN de Pi PT ft (D Et te bd té nn mn = 


D! 


D'ESPÈRE QUE LA SOLTMION VA ÊTRE DONNÉE RAPIDEMENT PARGEQUE 
J'AI L'IMPRESSION  D'ÊTRE REMONTÉ UN PEU TROP LOiN DANS 


LE TEMPS !! 


ei 


| JEUX ET 
+ "INFORMATIQUES 


3 T3 Cas LEZ 


CRE Em — 


1 par Thierry CHAMORET 


Remontons un peu 
dans le temps. 


Vous disposez (sim- 

ple supposition) d’un 
ordinateur possédant les 
cinq opérations entières sui- 
vantes : 


+ addition 

_ soustraction 

* multiplication 
div division entière 
(seule la partie 
entière est 
conservée, 
c’est-à-dire que 
10 div 3 = 3) 
modulo 

(reste de la 
division entière, 
10 mod 3 = 1). 


mod 


Une variable, appelée 
Mois, mémorise le numéro 
d’un mois du calendrier, 
c’est-à-dire une valeur entre 
1 et 12, et une autre varia- 
ble, Annee, le numéro de 
l’année (avec 2 ou 4 chif- 
fres). Nous cherchons à 
revenir en arrière d’un mois, 
en calculant la nouvelle 
valeur prise par Mois et 
éventuellement par Annee. 
Cela peut s’effectuer de la 
façon suivante : 

SI Mois=1 ALORS 


Mois = 12 

Annee = Annee — | 
SI NON 
- Mois = Mois — 1 
FIN SI 


Saurez-vous, sans utiliser 
de test de comparaison (<, 
>, =, <>), remplacer les 
instructions ci-dessus par 
deux expressions arithméti- 
ques fournissant les nou- 
veaux numéros du mois et 
de l’année ? 
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[ ES jeux et casse-tête qui vous sont proposés dans 
cette rubrique ont plusieurs aspects. Tout d'abord, 
ils peuvent être pris sous l'angle ludique, c'est-à-dire 


2 


Pas un bit de plus 


Vous savez qu'avec 

un bit, il est possible 
de stocker deux états diffé- 
rents, représentés par les 
chiffres O et 1. Avec deux 
bits, quatre valeurs différen- 
tes peuvent être mémorisées. 
Elles sont représentées par 
les motifs binaires suivants : 


Numéro de Motif 
la valeur binaire 


00 


Plus généralement, il 
existe une formule indiquant 
le nombre N de valeurs qui 
peuvent être représentées en 
fonction du nombre B de 
bits disponibles. Cette for- 
mule est la suivante : 

N = 2B avec B>0. 


qu'il s'agit de jeux, de petits problèmes 


plus ou moins faciles à résoudre. 
Ils ont également un aspect pratique. Ils permettent en 
effet à chacun d'exercer son agilité logique. Et il n’est 

pas nécessaire, pour trouver la solution, d'avoir un 
ordinateur sous la main. 
Les réponses paraîtront dans le prochain LIST. 


Ainsi, avec B égal à 2, 
nous trouvons 4, qui est égal 
à la valeur indiquée précé- 
demment. 


La question que nous sou- 
mettons à votre réflexion 
est, à l’inverse: pour 
mémoriser N états diffé- 
rents, quel est le nombre 
minimum B de bits nécessai- 
res ? D’une façon analogue, 
la valeur de B peut être 
exprimée avec une formule 
qui est fonction de N. La 
réponse à cette question 
nécessite quelques connais- 
sances en mathématiques 
(fonction logarithme). 
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Let J, mais pas K 


Vous connaissez l’al- 
gorithme classique, 
très utilisé dans les tris, per- 
mettant d’échanger le con- 
tenu de deux variables I et 


J. On utilise une variable 
auxiliaire K, pour stocker 
provisoirement le contenu 
de I. L’extrait de pro- 
gramme suivant effectue 
l'échange des valeurs de I et 
de J. 

K =I I =J J =K 

Le langage-machine de 
certains ordinateurs com- 
porte une instruction qui 
effectue cette opération ; 
elle est appelée généralement 
SWAP (permuter). Mais le 
processeur utilise en fait un 
registre interne qui joue le 
rôle de la variable K. 
Arriverez-vous à trouver un 
algorithme effectuant cet 
échange de valeurs, et cela 
sans utiliser de variable 
auxiliaire ? 

La solution est simple. 
quand on la connaît. Pour 
vous aider, sachez toutefois 
qu'il n’y a aucun trucage, 
que trois lignes sont néces- 
saires, comme ci-dessus, et 
que l’addition et la soustrac- 
tion sont utilisées. 
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PROGRAMMATION STRUCTURÉE : 


UNE QUESTION DE MÉTHODE 


OMMENT programmer ? Quelle méthode 

utiliser ? Le propos de cet article, et de ceux 
qui suivront dans les prochains LIST, est de vous 
aider à trouver VOTRE réponse personnelle à 
cette question. En effet, peu importe la méthode, 
pourvu que vous en suiviex une. Seront donc 
exposées plusieurs méthodes qui, toutes, présentent 
des avantages et des inconvénients. À vous de 
prendre dans l’une ou l'autre ce qui vous convient 
ou ce qui correspond à votre problème. 


Ce premier article a trait à une 

méthode dérivée de la program- 
mation structurée, méthode qui pour- 
rait être appliquée, par exemple, à la 
résolution du problème suivant : 
« apprendre le vocabulaire anglais en 
classe de 6° », mais ce sera pour une 
prochaine fois. 


d’optimisation, et essayez d’appliquer 
les quelques conseils suivants. 

Un programme est toujours constitué 
d’ordres et de variables. Plus rarement 
de commentaires. L’idéal serait que 
votre programme, quel que soit sa 
taille, comporte au minimum 50 % de 
commentaires. « À fou !, me direz- 
vous, et ma place mémoire disponible ? 
Et mon temps d’exécution ? » Je 
reviendrai plus tard sur les outils à uti- 
liser pour résoudre ces deux problèmes 
mais, ce qui importe, c’est que /a docu- 
mentation du programme soit incluse 


Quel que soit l’ordinateur que vous 
utilisez (qu’il s’agisse d’un Apple, d’un 


ZX Spectrum, d’un Alice, etc.), quel S œ 
que soit le langage que vous utilisez AS NL 
(Basic, Cobol, Assembleur, etc.) et se \ 
quelle que soit la méthode que vous uti- at . 
lisez (Warnier, Coriq, etc.), l’acte de Ed 
programmer va se traduire ainsi : vous 
vous assierez devant votre clavier et 
votre écran et vous entrerez alors effec- 
tivement le code de votre programme. 
Cette phase, vous le savez, est la plus 
passionnante et la plus fascinante de la ù 
programmation ; mais pour être menée 
à bien d’une part, et rapidement 
d’autre part, quelques précautions 
s'imposent. 

Oubliez un instant les limites de 
votre ordinateur et tous vos soucis 


dans le corps même du programme. Il 
est alors inutile de rechercher une 
hypothétique documentation externe au 
programme et classée dans on ne sait 
plus quel tiroir ou quel dossier. Un seul 
et même support, qu’il s’agisse d’une 
cassette ou d’une disquette, renferme 
programme et documentation. 


Allons un peu plus loin. Quand vous 
utiliserez ce programme, comment 
ferez-vous ? Là aussi, il ne faut pas 
rechercher ailleurs la réponse et tout 
programme doit comprendre son pro- 
pre mode d'emploi et son guide d’utili- 
sation. La réponse à la question « com- 
ment ça marche ? » doit, au sens pro- 
pre, vous sauter aux yeux. Tout écran 
affiché doit comprendre son propre 
mode d’emploi et vos actions possibles. 


Cette phase de commentaires, qu’ils 
soient internes (documentation) ou 
externes (mode d’emploi) est certes fas- 
tidieuse, mais le gain de temps qui en 
résulte et surtout le confort d’utilisa- 
tion sont irremplaçables. Un pro- 
gramme «non confortable » ne sera 
pas utilisé. 

Revenons à un niveau plus simple, 
celui des ordres et des variables et con- 
venons de n’utiliser qu’un seul ordre 
par ligne et une seule fonction par 
variable. 


N'utiliser qu’un seul ordre par ligne 
peut être gênant si l’on manque de 
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place, mais cela facilite le repérage des 
branchements (dans tous les cas), la 
recherche des erreurs (la ligne fautive 
ne présente plus d’ambiguïtés) et, bien 
sûr, la lisibilité. Ceci permet également 
de réaliser une liste de programme qui 
présente les indentations significatives 
du niveau d’imbrication de la séquence 
d'instructions (boucles contrôlées par la 
machine FOR...NEXT ou par vous- 
même IF... THEN...GOTO). 


De la même manière, et pour les 
mêmes raisons (repérage, recherche des 
erreurs et lisibilité), il ne faut utiliser 
une variable que pour une seule fonc- 
tion. Vous êtes alors à même de penser 
à lui donner une valeur initiale, à la 
faire évoluer et à contrôler sa valeur 
finale. Ceci vaut même (surtout ?) pour 
les simples variables de contrôle de 
boucles. Leurs noms doivent être égale- 
ment significatifs de leurs fonctions 
(ceci dans les limites de l’interpréteur 
ou du compilateur dont vous disposez). 


Revenons un instant sur les boucles 
contrôlées précédentes. La quasi- 
totalité des langages comporte un ordre 
de boucle (FOR...NEXT en Basic) et la 
totalité des langages comportent les 
ordres de test (IF...THEN du Basic) et 
de débranchement inconditionnel 
(GOTO en Basic). Programmez vous- 
même vos ordres de boucle. 


La séquence : 
100 FOR I=a TO b STEP c 
200 NEXT I 
300 REM suite 
peut parfaitement être remplacée par : 
90 I=a-c 
100 I=I+c 
110 IF I > b THEN 300 
200 GOTO 100 
300 REM suite 


Compte non tenu de la vitesse d’exé- 
cution (la deuxième séquence est plus 
rapide) et de la disponibilité (tous les 
langages ne comportent pas l’équiva- 
lent de FOR...NEXT et, a fortiori, 
STEP), utiliser un vocabulaire mini- 
mum facilite la portabilité des pro- 
grammes, leur mise en œuvre (le voca- 
bulaire reste simple) et la relecture (inu- 
tile de se poser de longues questions sur 
ce que peut faire telle option de tel lan- 
gage sur telle machine alors que, juste- 
ment, vous ne vous souvenez plus de 
l’endroit où se trouve le manuel d’utili- 
sation...) 


Tous les conseils qui précèdent ne 
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relèvent pas d’un souci d’optimisation 
mais de lisibilité avant toute autre 
chose. L’optimisation est forcément 
dépendante de l’ordinateur sur lequel 
vous travaillez et vous savez fort bien 
la vitesse à laquelle évoluent les capaci- 
tés des ordinateurs. Il n’apparaît, à 
l’évidence, pas opportun de se lier à tel 
ou tel état de la technique. Si votre 
programme ne va pas assez vite, il 
existe des compilateurs qui vous procu- 
reront un gain de temps sans commune 
mesure avec ce que vous auriez pu gra- 
piller en réorganisant vos sous- 
programmes ou en jouant de telle ou 
telle astuce. 


« D'accord pour la vitesse, me direz- 
vous, mais que faire par rapport à la 
taille mémoire qui m'est comptée ? ». 
C’est là où l’organisation de votre pro- 
gramme va jouer. Premier principe : 
votre programme doit n’être qu’une 
suite de sous-programmes, chacun 
d’eux ayant une fonction bien définie. 
A une fonction doit correspondre un 
sous-programme. Considérez chacun 
d’entre eux comme une boîte noire : 
vous savez ce que vous en attendez (en 
sortie) et vous savez ce que vous y met- 
tez (en entrée). Vous contrôlerez cha- 
cune de ces boîtes noires non en fonc- 
tion de ce qu’elles contiennent, maïs en 
fonction de ce qui en sort. Que vous 
importe que deux calculs successifs à 
l’intérieur d’une boîte soient faux, 
pourvu que le résultat final soit juste. 


Chacun de ces sous-programmes doit 
avoir une taille moyenne de 40 lignes 
(deux écrans au maximum). Au-delà, 
on ne peut pas l’examiner sans utiliser 
un support externe — liste manuelle ou 
sur imprimante — dont nous avons 
évité l’emploi jusqu’à présent. 


Dans le cas de sous-programmes 
généraux — que vous réutilisez d’un 
programme à l’autre (pour contrôler 
une date par exemple, ou obtenir le 
quantième d’un jour donné) — essayez 
de leur affecter toujours les mêmes 
numéros de ligne. Même si vous ne dis- 
posez pas d’un éditeur puissant capable 
de réintégrer ces petites boîtes successi- 
ves dans un nouveau programme, vous 
prendrez l’habitude de toujours appeler 
telle fonction à telle adresse. La pro- 
grammation s’apparente alors au Mec- 
cano et votre ensemble de sous- 
programmes est votre boîte à outils. 


Il ne nous reste plus qu’à procéder à 
l'assemblage +t, pour ce faire, nous 
allons utiliser une méthode dérivée de 
la programmation structurée. 


Sauf si vous êtes un inconditionnel 
du mouvement perpétuel, vous con- 
viendrez que le plus important pour un 
programme est qu’il s’arrête un jour. 


Nous allons donc nous en assurer en 
priorité. 
10 GOSUB 100 
20 IF A=1 THEN 50 
30 GOSUB 200 
40 GOTO 20 
50 GOSUB 300 
60 END 
100 REM début 
110 A=0 
190 RETURN 
200 REM milieu 
210 A=1 
290 RETURN 
300 REM fin 
390 RETURN 


La séquence précédente ne fait stric- 
tement rien si ce n’est s’arrêter chaque 
fois après une exécution correcte. Ce 
qui était le but recherché. Elle appelle 
quelques commentaires : 

e on peut l’utiliser quel que soit le pro- 
blème que l’on traite et, en ce qui me 
concerne, fous les programmes que 
j'écris comportent ces ordres (à l’excep- 
tion de la ligne 210 que l’on verra plus 
loin) ; 

e le corps principal du programme se 
réduit aux six premières lignes dont le 
seul rôle est de contrôler l’arrêt du trai- 
tement. Tout le reste est une suite de 
sous-programmes ; 

e à un niveau donné, on retrouve tou- 
jours un sous-programme de fin de 
traitement (ici 300-390) et, donc, un 
sous-programme de début de traitement 
(ici 100-190) qui correspondent respec- 
tivement à la sortie et à l’entrée de la 
boîte noire de fraitement proprement 
dit (ici 200-290) ; 

. certaines de ces boîtes noires peuvent 
être vides (ici la fin de traitement) ; en 
tout état de cause, elles sont toujours 
présentes ; 

e ce qui vaut pour le traitement (les 
boîtes noires de fin, début et traite- 
ment) vaut pour les variables. La seule 
variable présente ici, A, comporte un 
contrôle de fin (ligne 20 IF A=1i 
THEN 50), donc elle comporte une 
valeur de début (ligne 110 A=0) et un 
traitement entre les deux (ici ligne 210 
A=l1). 

On essaiera donc de décomposer tout 
problème en pensant à ce que doit 
effectuer le programme (que veut-on 
obtenir ?), à son début (quelles données 
puis-je fournir ?) et à son milieu (com- 
ment passe-t-on de l’un à l’autre ?). 

Deux remarques : la fin est évidem- 
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ment la partie la plus importante. Si 
l’on sait ce que l’on veut, on a une 
chance de l’obtenir ; la réciproque n’est 
pas vraie. Déterminer ce point avec 
précision est toujours le plus délicat. 


La deuxième remarque concerne le 
milieu : si l’on s’aperçoit qu’il va 
dépasser la limite fixée précédemment 
(deux écrans), on le décompose à son 
tour en sa fin, son début et son milieu. 
Et ainsi de suite. On peut donc tou- 
jours représenter un problème sous la 
forme suivante : 


S’il le faut, on décomposera un rec- 
tangle en trois parties, fin, début et 
milieu, quitte à décomposer l’un ou 
l’autre des rectangles en ses propres 
fin, début et milieu. 


Par souci de lisibilité et de cohérence 
(une fonction par boîte), deux autres 
cas généraux peuvent se présenter : 
l’alternance et la répétition. L’alter- 
nance est le choix entre deux options 
mutuellement exclusives. Elle se pré- 
sente comme suit. 


€ Suis en 
& 


Quant à la répétition, elle consiste à 
effectuer un même traitement n fois : 


Je fravaille 
une lors de plus 


Ce dernier schéma peut être forma- 
lisé dans le code du programme. Ceci 


æ Notions fondamentales (si vous ne possédez pas de 
connaissances en Informatique) 
Un cours complet de BASIC, plus de 200 exercices sur machine 
avec corrections de nombreux sujets de composition avec contrôle 


des connaissances 


correspondrait à tester à la ligne 20 de 
notre exemple IF A=N THEN 50 et à 
remplacer la ligne 210 par A=A+I. 
On peut préférer l’intégrer dans le trai- 
tement concerné. Dans notre exemple, 
cela conduirait à rajouter une ligne 105 
B=0, une ligne 205 B=B+1 et à 
modifier la ligne 210 en 210 IF B=N 
THEN A=1. Je préfère personnelle- 
ment cette dernière solution, À n’ayant 
jamais que deux valeurs 0 — on conti- 
nue — ou 1 — on s'arrête. 


Nous verrons dans un prochain arti- 
cle le cas concret de construction d’un 
répétiteur de vocabulaire. Le program- 
meur aura retrouvé les sources de 
diverses fautes de programmation (que 
celui qui n’a jamais oublié d’initialiser 
une variable...). De façon plus prati- 
que, on construit un programme mor- 
ceau par morceau (est-ce que la fin me 
convient bien ?) en faisant évoluer 
simultanément le programme et sa vali- 
dation. Utiliser la programmation 
comme outil de modélisation est le 
meilleur moyen de programmer effecti- 
vement vite et bien. N’hésitez pas à 
essayer de valider le plus tôt possible ce 
que vous avez développé. Plus la 
remise en cause est tardive et plus vous 
regretterez les heures perdues antérieu- 
rement. 


Jean-Pierre BRUNERIE 


1 MICRO +1 METHODE - 
le Basic enfin chez vous 


1 METHODE PEDAGOGIQUE SPECIFIQUE 
® imicro-ordinateur sharp PC 1212 PC 1245 ou PC 1251 


fourni (ou non si vous en possédez un). Possibilité Interface ou Imprimante. 


Disponible :un cours 
pour les possesseurs 


d'un SINCLAIR 
2X81 


APPRENDRE - RAPIDEMENT - EFFICACEMENT - A SON RYTHME - PAR CORRESPONDANCE 


ECOLE UNIVERSELLE -IFO 


Etablissement privé d'enseignement à distance 


dans l'enseignement 
de l'Informatique. 


Étude gratuite dansle ! 
cadre de la formation continue après 
accord de l'employeur 
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Nom, prénom 


_28, rue Pasteur 92551 Saint-Cloud 
Cedex. Tél. : 771.91.19 


Bon pour une documentation gratuite N° 284 = 


l'Adresse 


l 

[ 

| — 
{Niveau d'études 


Age 


désire recevoir une documentation gratuite sur le cours Initiation/basic. 


ECOLE UNIVERSELLE - IFOR - 28 rue Pasteur 92551 Saint-Cloud Cedex. 
Tél. 771.91.19 
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QUAND LE HASARD 
SE MET À LA PEINTURE 
ABSTRAITE 


‘ÉCRAN d'un téléviseur éteint est d'un 

triste. Si votre ordinateur n'est pas occupe, 
laissex-lui le soin de créer pour vous des tableaux 
animés. Vous serex sans doute étonné par certaines 
de ses compositions. 


13 DER — ! 


Carrés colorés Les courts programmes qui vous 


el animes sur sont proposés ici pour TO7, 

le Spectrum TRS modèle 1, Lynx, Spectrum, vous 

(programme n° 3) donneront peut-être l’idée de dévelop- 
per à votre tour des logiciels qui ne 
sont destinés qu’au plaisir des yeux. 
Nous l’espérons. 


Pour la plupart, une fois qu’ils sont 
lancés, rien ne les arrête. Ils affichent 
(en couleur, sauf sur le TRS) des com- 
positions abstraites qui évoluent de 
seconde en seconde. Chacun de ces 
programmes est un point de départ 
autour duquel vous pourrez broder à 
votre guise. 


1AR De Der 1 D: 


La) 


Le Lynx 
propose un 
Lapis persan. 


Quelques suggestions, si vous êtes en 
mal d'inspiration ; faites dessiner à 
votre ordinateur : 
des motifs de napperons, 
du pied-de-poule, 
du prince de galles, 
du tissu écossais, 
des rosaces de cathédrales, 
de faux Vasarely, 
des roues de paons, 
des plans de citadelles, de villes, etc. 


Contraste et couleurs : 
le TO7 est agréable 


a SUIVTrE Et n’oubliez pas de nous envoyer les 
programmes dont vous serez le plus 
fier, surtout s’ils sont très courts. 


. . . ee ee + © 


A titre d’exercice, vous pouvez vous 
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QUAND LE HASARD 
SE MET À LA PEINTURE 
ABSTRAITE 


entraîner dans un premier temps sur le 
sujet suivant : certaines enseignes de 
pharmaciens sont des variations lumi- 
neuses sur le thème de la croix verte, 
avec clignotements multiples et autres 
effets d’optique. Observez-les et tâchez 
d’obtenir que votre ordinateur fasse 
aussi bien, ou mieux. Vous pouvez 


aussi inventer des carottes de buraliste, 
des fontaines lumineuses, des aqua- 
riums où se promènent d’étranges pois- 
sons chatoyants... Et vous aurez sans 
doute beaucoup d’autres idées. 


LISE 


SUR ZX SPÉCTRUM ET 107 


L’écran haute résolution du ZX 

Spectrum est géré par la 
machine d’une façon très particulière : 
en effet, les cases-mémoire correspon- 
dant à l’affichage ne sont pas consécu- 
tives, mais utilisent un arrangement 
spécial, qui tient compte en fait du 
balayage télévision (voir le manuel à ce 
sujet). De plus, les couleurs de fond, 
d’encre, le clignotement, la surbrillance 
sont gérés par un certain nombre de 
cases-mémoire, situées très exactement 
juste après cette mémoire d’écran. 

Le premier programme proposé, 
outre le fait qu’il réalise des tableaux 
abstraits, permet de bien se rendre 
compte de cette organisation particu- 


Animation graphique de l’écran 
Programmes pour ZX Spectrum 
Auteur Jacques Deconchat 
Copyright LIST et l’auteur 


Programme n° 1 
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lière. La mémoire d’écran va de 
l’adresse 16384 à l’adresse 22527 et le 
fichier des attributs va de 22528 à 
23296. 


Le deuxième programme réalise le 
même type de tableaux abstraits mais, 
cette fois-ci, directement à partir des 
instructions Basic Sinclair. Un carac- 
tère quelconque est d’abord emmaga- 
siné en caractère graphique prédéfini (il 
faudra taper ‘‘GRAPHICS A’ dans le 
PRINT), puis il est affiché sur l’écran. 
La couleur de l’encre, la couleur du 
fond, le clignotement et la surbrillance 
sont choisis de façon aléatoire. Le 
résultat est, comme précédemment, un 
tableau très inattendu que l’on peut 


Programme n° 3 


Co Le DL mm 


Cu D 


QUL'LCI ES 


DER LUI ET 
Le Lee 
TUTTII 


CPS 


Fi 


D 
AT 


Li: 


E4 TN 


L 
HO 
p 
E 
F 
= 
F 


ÆUT TT TA 
+4 


SUR LYNX 48 KO 


Le programme 
dans ses grandes lignes 


100 : permet le chaînage avec un autre 
programme qui, sans cela, pour- 
rait altérer les caractères normaux 

120 et 150 commande multiple de. 
l'affichage par VDU 

160 : initialisation des variables V et H 

180 et 220 : changement de caractères se- 
lon la valeur 1 ou 2 du drapeau H 

190 et 200 : début des boucles d’affi- 
chage 

210 : permet de doubler ou de tripler le 
même caractère 

240 à 270 : affichage du caractère à huit 
reprises 

280 : scrutation du clavier 

290 : permet de figer l’évolution du des- 
sin 

300 à 330 : si les touches appropriées 
sont pressées, le drapeau H change 
de valeur ; un bip signale que la 
commande a été enregistrée 

340 et 350 : fin des boucles L et C 


Mode d'utilisation 


RUN : construction du kaléidos- 
cope 

SPACE  : arrêt sur l’image 

— et > : changement du caractère 


utilisé 
RETURN : maintien du caractère 


modifier à volonté en pressant une tou- 
che quelconque. Une application spec- 
taculaire de ce programme à la réalisa- 
tion d’un kaléidoscope est ensuite pro- 
posée, ainsi qu’une adaptation du 
même programme pour l'ordinateur 
TO7. 


Jacques DECONCHAT 


ERNDE TI: 
ERND+EI : 
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Kaléidoscope 
Programme pour TO7 

Auteur Jacques Deconchat 
Copyright LIST et l’auteur 


Kaléidoscope 
Programme pour Lynx 48 Ko 
Auteur Yvon Pérès 

Copyright LIST et l’auteur 


. DPOKE GRAPHIC, &91Dt4 FEM KALEIDOSCOPE 
CS 1,2,2,5, 2 Y=RNC:GOTO EE 


2g If #= THEN 


136 PRINT © 49, 56; ” KALEIDOSCOPE "+ 
148 PAUSE 150068 = INTERUCKESS), INTLRND#25S5, I 
Er UDU gr ‘, INTCRNDKESS5, INTCRNDKESS:, IN 


LR CRND#ESS), IUTCRNDHESS: 
F H=e THEN LET U=RAND (31) +225 1% G=INTCRNERE à 

196 FOR L-8 TO 18 

2 FOR C=L TO 18 


et IF RANMD (4) > RAMD(U) THEN GOTO 24 

eee IF H=i THEN LET V=RAND(31) +225 

e38 INK RAND (6) +1 

eue PRINT @ Cæ#3+33, (L+2) #10; CHR$ (U) 

5 € 93—Cx3, (L+2) #18 CHRS$ CU) ; F6: 

ese PRINT @ Cx#3+33, 220—L +108 CHRS (W 118 COLGR F,GILOCATE EB+K-I1,18-1,6:PRINT 
5 © 93-Cx3, 220 —L=10% CHRS CU) ; GRFCG5ù 

268 PRINT © Lax3+33, (C+2) #19: CHRS (VU); @ 1284 MEXT I 

9G-Ls3, (C+2) #10; CHRS (U) ; 128 HEXT E 


278 PRINT © Lx3+33, 220-Cx#10; CHRS$S(U); @ 
93-133, 220-Cz105 CHRS$ (U) ; 
G=KEYN 


144 GOT 46 


ne 
ji 
A 


# 
GET I. 
ro ERA 


SLT 
ELLE 


En pressant les touches + ou —, on obtiendra des caractères 
d'impression différents. Si l’on désire un fond de couleur aléa- 
toire, on écrira, en ligne 150, VDU 2, RAND (7), 25, 4. 


On peut également jouer sur la grandeur du dessin en rem- 
plaçant (ligne 190) le 0 de FOR L = 0 par un chiffre compris 
entre 0 et 5. 


Kaléidoscope 
Programmes pour TRS 80 Modèle 1 
Auteur Claude Balan 

Copyright LIST et l’auteur 


Programme n° 1 

10 REM ###% KALEIDOSCOPE ### 
28 CLS 

30 LET À = RND (47) - 1 

49 LET H = RND (@) 

50 1F H > 0.5 THEN GOTO 200 
60 REM #*## TRAITS BLANCS ### 
78 FOR I = @ TO 93 

89 SET (1,4) 

96 SET (1,46-A) 


SUR TRS 80 MODÈLE 1 


| 10@ NEXT 1 
11Q LET À = À + À : 
12@ FOR } = @ TO 46 Programme n° 2 
130 SET (A,1) 
140 SET (A#1,1) 18 REM ##*% KALEIDOSCOPE ### 
ISO SET (92-A,1) 20 CLS 
160 SET (92-A+1,1) 38 LET À = RND (47) — j 
178 NEXT 1 40 REM ###% TRACES HORIZONTAUX #### 
188 GOTO 30 50 FOR 1 # @ TO 93 
190 REM ### TRAITS NOIRS #4 60 IF POINT (I,A) THEN RESET (1,4) ELSE SET (JA) 
208 FOR I = @ TO 93 7@ IF POINT (1,46-A) THEN RESET (1,46-A) ELSE SET (1:46-4) 
218 RESET (1,4) 8g NEXT 1 
| 220 RESET (1:46-A) 90 REM ### TRACES VERTICAUX ##%# 
239 NEXT 1! 190 LET À = À + À 
248 LET A = À + À 110 FOR I = @ FO 46 
250 FOR I = @ TO 46 120 IF POINT (A1) THEN RESET (4,1) ELSE SET (A,1) 
260 RESET (4,1) 130 IF POINT (A+1,1) THEN RESET (A+1,1) ELSE SET (A+1,1) 
270 RÈSET (A+tf)1) 149 IF POINT (92-A,1) THEN RESET (92-A:1) ELSE SET (92-A,1) 
280 RESET (92-A,1) 150 IF POINT (92-A+1,1) THEN RESET (92-A+1,1) ELSE SET (92-A#1,1) 
290 RESET (92-A+1,1) 168 NEXT I 
300 NEXT 17@ REM “#%% ON REPART POUR UN TOUR *x#% 
31G REM ##*% ON RECOMMENCE ### 18Q GOTO 30 
GOTO 30 
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i jongler avec la pile opérationnelle de votre 
HP-41 C, traquer la milliseconde perdue et 
rogner le moindre octet est votre pain quotidien. 

Ou si, à l'inverse, vous échappe parfois un peu 
de la subtile recherche des programmes 
en Notation Polonaise Inverse.…. 
Alors, voici qui doit vous intéresser. 

En matière de programmation, est-0n jamais certain 
d'avoir fait aussi bien que possible ? 

Le mieux pourrait-il être l'ami du bien ? 
Dans cette rubrique, les défis se 
succèderont : des programmes toujours plus courts, 
plus rapides. Et les records tomberont | 


Optimiser un programme, c’est 

en trouver la meilleure expres- 
sion possible : la plus courte en nombre 
de pas de programme mais surtout en 
encombrement de la mémoire (en 
« octets » ; il existe des fonctions de 1, 
2, 3 octets et plus, le détail en est 
donné à l’annexe D du manuel de la 
HP-41C). C'est obtenir le résultat 
recherché le plus rapidement possible ; 
c’est, enfin, consommer le moins de 
registres de mémoire possible. 


Dans l’art d’optimiser, ici, peu 
importe en définitive le thème du pro- 
gramme - il aura intérêt à être très élé- 
mentaire - pourvu que l’on ait l'ivresse 
et la joie de la recherche et souvent 
aussi de la découverte du meilleur algo- 
rithme de résolution du problème, de la 
plus élégante astuce. 


La philosophie de « Misez p'tit » est 
simple. Un lecteur lance un défi à tous 
les autres lecteurs : « Voici les caracté- 
ristiques de mon programme, faites 
mieux si cela est possible ! » 
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Un principe cher à cette rubrique : 
les programmes réalisés sont « porta- 
bles », utilisables partout et à tout 
moment avec l’un quelconque de tous 
vos autres programmes. Donc, ils ne 
doivent employer, lorsque cela est pos- 
sible, aucune des mémoires normales 


ROO à Rnn, mais seulement les registres 
X, Y,Z,T et LASTX de la pile opéra- 
tionnelle. Ils peuvent ainsi ultérieure- 
ment devenir de simples sous- 
programmes, presque comme de nou- 
velles fonctions. 


On ne devra donc pas user non plus, 
dans les programmes optimisés, d’ins- 
tructions d’arrêt (STOP,..) ou de 
demande de paramètres (PROMPT,...). 
Toutes les données nécessaires auront 
été fournies dans la pile opérationnelle 
avant l’exécution, et tous les résultats 
s’y trouveront ensuite. 


Les critères d’une bonne optimisa- 
tion (vitesse, taille mémoire) sont glo- 
balement complémentaires : plus c’est 
court, plus c’est rapide ! Mais là où les 
limites de l’optimisation sont proches, 
près de l’algorithme parfait, le mieux 
tend inversement à devenir l’ennemi du 
bien. En arrachant la suprême optimi- 
sation sur un point, on risque fort de 
perdre beaucoup sur un autre ! 


Gilles Bransbourg propose, ce mois- 
ci, deux programmes optimisés. L’un, 
« coefficients binômiaux » est un 
modèle du genre (mais si vous trouvez 
mieux..….), l’autre, « simplifications de 
fractions » (Voir ‘Qui dit mieux ?”?) 
est bien le défi du mois. Son auteur en 
décrit les performances sans toutefois 
en révéler pour le moment tous les 
détails. 


Il est souvent plus facile d'optimiser 
un défi que d’en lancer un, car il faut 
trouver un thème de qualité : pas trop 
classique (quoique... NDLR), ni trop 
court, ni trop long ; aux multiples pos- 
sibilités d’optimisation et pas encore 
tout à fait parfait. Il faut bien que l’on 
puisse relever le défi et qu'il suscite la 
bataille ! 
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CR SSSR, | 


Loi binômiale 
Programme pour HP-41 
Auteur Gilles Bransbourg 
Copyright LIST et l’auteur 


01 LBLTBIN 
02 SIGN. 

03 LASTX 
04 ST-Y 

05 Rt 

06 YtX 

07 X<>Y 


_ 


C'est ainsi que naquit ma première 
idée de défi : calculer les coefficients de 
la loi binômiale, bien (?) connue de 
générations de lycéens (au moins de 
réputation !). Le calcul en lui-même est 
fort simple et se résume ainsi : on se 
donne deux nombres entiers positifs n 
et k vérifiant la relation n > k (c-à-dn 
est toujours plus grand ou égal à k)j. 
On se donne un dernier nombre p com- 
pris entre 0 et 1 (en général 1/x où x est 
simplement un entier positif). La for- 
mule à calculer est : 

On link)! X KID x (Ip) TK x pk 


ou encore (n! x ({l-p) n-k x pk)/ 
(ak)! X k1) 


Départ ? n P 4 

SIGN 

LAST X k n (1-p) p —— 

ST-Y 

Rt (-p) P k — 

y* n (1-p) p' k 

OY n n p* (1-p) k 

LAST X 

FACT n p* (1-p) k k 

ST/Z 

X<>L n p“/k ! (1-p) _ 

Rt p“/k ! (1-p) k — 

ST-Y p“/Kk ! (1-p) k-n — 

FACT 

RDN n! p“/k! (1-p) k-n — 

CHS 

y* n! n ! p*/k ! (1-p)"* n-k 

LAST X 

FACT n ! p‘/k! (1-p}"* (n-k) ! — 

/ n! n! p/K ! Q-p)"* - 

(n-k) ! 

* n! n ! n ! p* (1-p}"* _— 
k ! (n-k)! 

d a! n! n! nip*(l-py* = 
k! (nk)! 


Note : La présence d’un tiret dans la case du registre LAST X indique un contenu sans 


importance. 
FE P 


Il n’est pas nécessaire de connaître 
l’utilité de la formule, sa signification 
« profonde », pour la calculer et offrir 
ainsi le prétexte à une optimisation 
drastique. Le signe « ! » signifie « fac- 
torielle » et correspond à la fonction 
FACT de la HP-41C. Le reste n’est que 
division, multiplication, soustraction et 
élévation à la puissance (voir Y*X). 


Mon programme optimisé est repro- 
duit ci-dessus avec le LBLT BIN. Il ne 
consomme que 25 octets de la mémoire 
(sans compter ni le LBL de tête, ni le 
END final) et n'utilise que les registres 
de la pile opérationnelle. Le calcul avec 
n=5, k=2 et p=1/4 soit 0,263671875.. 


QUI DIT MIEUX ? 


issertation sur le thème classique des simplifications de fractions. Peu 
de choses à dire, on introduit la fraction à simplifier : numérateur 
ENTER dénominateur, et le programme doit retourner, dans le même 


ordre, le numérateur et le dénominateur de la fraction simplifiée. 


Mon programme occupe 15 octets en 12 pas de programme (sans compter 
ni le label de tête (LBL FRAC) ni le END final. Il trouve que 127/381 vaut 
1/3 en 0,2262 seconde et même que x/1 « vaut » 1.570.796.327/500.000.000 
en 1,4552 seconde. 
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Gilles BRANSBOURG 


est réalisé en 1,3323 seconde. 


L'introduction des paramètres de 
départ s'effectue ainsi: k ENTER n 
ENTER p, et XEQ la galère ! (XEQ 
« BIN » convient aussi). Le résultat est 
en X. 


J'ai choisi de garder n et k dans la 
pile, de calculer plus tard n-k et 
d'effectuer successivement ptk et la 
factorielle k !, puis de même (1-p) ? (n- 
Kk) et (n-k) !, en récupérant à chaque 
fois dans LASTX, k puis (n-k). 


Le novice en optimisation gagnera à 
bien étudier ce programme. Son prin- 
cipe de travail est simple, il suffit pour 
le suivre de bien examiner, au fur et à 
mesure des instructions, le mouvement 
de la pile opérationnelle et les résultats 
(voir le tableau ci-dessus). 


Il est vraiment très difficile d’optimi- 
ser encore, mais ne parlons pas... A 
vous de répondre ! 


Jean-Christophe KRUST 
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COMMENT | 
J'AI PROGRAMMÉ 


UN « SQUASH » 


très précises. C'est sans doute pourquoi les jeux 
se prêtent si bien à la programmation. D'ailleurs, 
de ce point de vue, la programmation est aussi un 
jeu où il est impossible de tricher, mais où chacun 
a son style, son tour de main, ses recettes. 


Une raquette, une balle, trois 
murs, en un mot un « squash », 
voilà ce que je vous propose de faire 
entrer dans votre Oric, en vous indi- 
quant la manière dont je m’y suis pris. 


En ce qui me concerne (et je ne suis 
pas le seul), je commence toujours par 
inscrire au début de chaque programme 
une ligne de REMarque qui me rensei- 
gnera plus tard sur le sujet dudit pro- 
gramme. C’est bête comme chou, mais 
c’est tellement commode... 


La méthode que je pratique consiste 
à écrire ensuite la structure générale du 
programme sans me préoccuper du 
détail de chaque chapitre. Dans le cas 
du jeu de « squash », cela donne : 
° Toute partie se dispute en plusieurs 
balles, et donc au moins en une, d’où 
la ligne 20 du programme : REPEAT : 
GOSUB 490 : UNTIL DERNIERE. Ici, 
GOSUB 40 équivaut au traitement 
d’une balle, et la variable DERNIERE 
est une variable « booléenne ». En fait, 
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DERNIERE = (NBALLES > 10). 

. Pour chaque balle, il peut y avoir ou 
non des renvois par la raquette. Il n’est 
pas question d’utiliser ici REPEAT.. 
UNTIL. En effet, rien ne dit qu’il y 
aura au moins un coup de raquette bien 
placé. En ligne 50, on inscrit donc 
GOSUB 70 : IF RENVOI THEN 50. 
Le GOSUB 70 appelle le sous-pro- 
gramme traitant le renvoi d’une balle. 
e De la même façon, après chaque ren- 
voi par la raquette, il se produit ou non 
des rebonds sur les trois murs de 
l’espace de jeu. Cela nous donne, à la 
ligne 80, GOSUB 400 : IF REBOND 
THEN 80, le sous-programme qui 
débute en 400 traitant le déplacement 
de la balle entre les rebonds. 


Pour achever l’ossature de notre pro- 
gramme, nous devons encore prévoir : 
e Le début de la partie (dessin du ter- 
rain de jeu) et la fin (affichage du 
score). 

e Le lancement d’une balle et le pas- 
sage à la balle suivante. 
e En cas de renvoi d’une balle, l’affi- 
chage du nouveau score (gain de 10 
points en cas de succès). 


On peut alors écrire : 
100 REM début du programme (chapi- 


tre 100) 
195 RETURN 


ff SUR MON OKIC 


Jeu de squash 


Programme pour Oric-] 
Auteur Max Hagenburger 
Copyright LIST et l’auteur 


A FEM #* sâuash ** 
5 REM une Partie de squash: 


3 AS="#" 


GOSUB 198 ‘lez balles: 
FEPERT :GUSUR 4@ 
GOSUB AA ‘fin 
REM--emmmer 
REM une balle: 
GOSUB 268 ‘’renvnis raîuette: 
GOSUR 79 :IF PREMVOI THEN 58 
GOSUR 698 :RETURH 


REM un renvoi de raquette: 


GOSUB 398 ‘rebonds sur bords: 


GOSUR 488 :IF REPGND THEH 28 
COSUR 588 : RETURN 


à FEM initialisations 


CLE :PRINT CHR#C20) 

LORES 9 : INK 5 :POKE 618,10 
:B$=" " :CE=CHRSCÉ ) 
K=19 :Lek+24 :Hz21 

PLOT K,9,C0$4+" Max" 

PLAT K+18,0, "SOUASH" 

FOR I=k TO L-t:PLOT I,1,"-" 


A FOR I=K TQ L-1:PLOT I,H,"-" 
1 FOR I=2 TO H-1:PLOT L,1,"1" 


R=11 :IF KEY#="" THEN 178 


FOR IER-1 TO R+i:PLOT K, 1,18: 


:GOSUE 1808 ‘’Paîuette 
SCORE=A 
HBALS=1 
RETURH 


D EM 


REM debut une balle 
K=17+# 

= ti 0e RDC 1 74842 
Dx=-1 


A DY=RHDC 19#2-1 


PLOT X.Y,P# 


“UNTIL DERNIERE 


:HEXT 
:NEXT 
:NEXT 


NEXT 
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200 REM début d’ure balle (chapitre 
200) 
295 RETURN 


Même chose pour 300, 400, 500, 600 
et 700, mais en 795 on écrira END et 
non pas RETURN. 


Ce « squelette » de programme mar- 
che tout seul ! Si l’on demande RUN, il 
est même impossible de l’arrêter sans 
débrancher l'ordinateur ou ordonner 
CTRL C. Pourquoi ? Mais parce que 
la variable DERNIERE ne prend ja- 
mais la valeur « vraie ». Ajoutons les 
deux lignes suivantes : 

680 NBALLES = NBALLES + 1 
690 DERNIERE = (NBALLES > 10) 
et le programme (qui ne fait toujours 
rien) s’arrêtera de lui-même à point 
nommé, à moins qu’il ne détecte une 
erreur que l’on s’empressera de corri- 
ger. 


Au chapitre débutant en ligne 200, 


269 
235 
233 
300 


RETURH 


REM debut renvoi raîuette 


on détermine le point de départ de la 
balle : 


2100X=2:Y=10:DX=1:DY=I1 


Si l’on ajoute +1 à X, on va à 
droite, +1 à Y, on va vers le bas, — 1 à 
X, on va à gauche, et —1 à Y, on va 
vers le haut. 


On peut maintenant s’occuper tran- 
quillement du point central du pro- 
gramme qui commence en ligne 400 
comment déplacer une balle sur l’écran. 


On calcule d’abord la nouvelle posi- 
tion de la balle : 
XX = X + DXet YY = Y + DY 
(X, Y = ancienne position et XX, 
YY = nouvelle position). On efface 
alors l’ancienne position avant d’affi- 
cher la nouvelle, ce qui rend mieux 
l'illusion du mouvement continu : 
PLOT X, Y, ” ” : PLOT XX, YY, 
»@’? 


Et on recommence, dans les limites 


PLOT K,H+1,CHRSC2 )+"balle"+STREC NBALS ) 


328 PLOT K+15,H+1, "score "+STRE( SCORE ) 
395 RETURH 
799 REM---——— 
498 REM dePlaremt halle entre rebonds 
410 : KMEK4DX :YY=Y+DY 
428 : PLOT X,Y," " :PLOT XX, YY,CS 
Ë 430 : KEXX : Ya YY 
449 : GOSUB 1988 ‘Raquette 
450 IF X+DX>K AND K4+DK€L AND Y+DY=>2 AND Y+DY<H THEH 418 


478 IF Y+DV<2 OR Y+DY=5H THEN DY=-DY 


480 IF X+D0%=>L THEN DX=SGNCDXDk-7 
49 REBBND = CXHDX>K) 

42% RETURH 

492 REM------ 

00 REM fin renvoi raquette 

51 ECRAN=SCRNCK, Ÿ ) 

529 PLOT K,Y," " :PLOT K,Y," " 


330 
549 
ist] 
360 
395 
399 
6e 
» E2a 
6238 


DX=EGNCDX3#-2 :DY=0Y/2-CR-7 3 
IF ABSCDY)>2 THEN DY=CGNDVDXZ 
RENVOI=C ECRANSASCC "#13 


RETURN 


REM fin d’une balle 
EXPLODE 

RIT 100 

NPALS= NBALS+1 
DERNIERE = CNBALS>10) 
RETURN 


REM fin du Programme 
CLE :INK 9 
POKE 618,3 
PRINT :PRINT "CCOPF="CCORE 
PRINT CHR# 20) 
END 
REMe===s=sz2zszs 
REM raquette 
IF PEEKCS20)=189 THEN RR=R+2 
IF PEEK(S20)=156 THEH PR=P-2 
IF RR < 3 THEN RR=3 
IF RR >H-2 THEH RR=H-2 
IF RRÈR THEN PLOT K,RR, 
IF RP£R THEN PLOT K,RR, 
R=RR 
RETURN 


REM=z=zs2sesssesszszs 


1919 
1920 
1938 
1848 
180€n 
1a78 
1987 
1935 
1893 


A 
R 


N° 1 - JUILLET AOÛT 84 


:REM un rebond: 


IF RENVOI THEN PING :SCRARF=SCGRE+18 :PLOT K,Y.A$ 


S:PLOT K,P-1.RS:PLOT K,RR+1:A8:PLOT K.R,E# 
:PLOT F,P+1,B$:PLOT K,RPR-1,A$:PLOT K,R.R$ 


du jeu sur l’écran (lignes 410 à 450). 
Cette répétition utilise le branchement 
conditionnel IF THEN 410, plus 


rapide que REPEAT : GOSUB 410 : 
UNTIL X + DX < 2 … (la vitesse 
prime ici). Quand on a atteint les limi- 
tes du terrain de jeu, on inverse le sens 
de déplacement (DX = —DX et DY = 
— DY). 


Autre point important de ce chapi- 
tre : comment faire bouger la raquette 
en même temps que la balle. C’est à la 
ligne 440 que GOSUB 1000 appelle le 
sous-programme gérant les mouve- 
ments de la raquette. Si l’on appuie sur 
les touches | ou t, on la fait descendre 
ou monter. La variable R correspond à 
la position du milieu de la raquette et 
RR à la position qu’elle va prendre. On 
aurait pu programmer : 

1005 R$=KEYS 

1010 IF R$=CHRS (10) THEN RR= 
R+2 

1020 IF R$=CHRS (11) THEN RR= 
R—-2 


Mais avec une telle solution, le mou- 
vement risque d’être saccadé, car il 
dépend de la fonction de répétition 
automatique des touches. On a donc 
intérêt à remplacer l’instruction KEY$ 
par un test sur le contenu d’une 
adresse-mémoire qui change de valeur 
quand on appuie sur une touche. Cela 
nous conduit à la formule IF PEEK 
(520) = 180 THEN RR=R+2 et IF 
PEEK (520) = 156 THEN RR=R-2 
(lignes 1010 et 1020). L’octet 520 prend 
en effet la valeur 180 ou 156 selon que 
la touche Ÿ ou t est enfoncée. 


Après avoir contrôlé que la raquette 
reste dans les limites de l’écran, on la 
déplace aux lignes 1060 et 1070. 


Le plus important est fait. Il ne reste 
qu’à compléter chaque chapitre du pro- 
gramme. Ainsi, en passant en LORES 
0, on obtient un fond noir (plus agréa- 
ble à l’œil). On donne de l’effet à la 
balle quand elle rebondit sur la 
raquette avec l’expression (ligne 530) 
DY = DY/2-(R-Y). On fait comp- 
ter les points, on rend sonores les ren- 
vois de la balle. 


Et dix autres petites choses qui font 
que, progressivement, le programme 
prend sa forme définitive. 


Max HAGENBURGER 
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LES COUPS D'OEIL DE LIST 


TOOL 


POUR COMMODORE 64 


T OOL est un logiciel destiné à améliorer les 
performances du Commodore 64. En apportant de 
nouvelles instructions au Basic d'origine, il dope 
l'ordinateur et simplifie la tâche du programmeur. 
Cette cartouche qui se connecte à l'arrière du 

C. 64 coûte... 8 Ko de mémoire vive et 


environ 640 FF ttc. 


Le Commodore 64 est décidé- 

ment une bien curieuse machine. 
Il peut tout faire, ou presque. Mais il 
est souvent incapable de faire les choses 
simplement. La seule programmation 
d’une page écran vraiment présentable 
passe par une armada de mouvements 
du curseur un peu décourageante 
quand on a eu l’occasion de travailler 
sur d’autres matériels. Et que dire de 
l’accès à la haute résolution, de la pro- 
grammation des « sprites » et autres 
joyeusetés sonores ? Tout cela n’est pas 
vraiment à la portée du débutant. 


Alors, bien sûr, les aides à la pro- 
grammation fleurissent. Mais pas 
« l’Aide » universelle, celle qui d’un 
coup rendrait tout plus simple, plus 
facile, plus « accueillant ». Des multi- 
tudes d’aides, en fait, orientées vers 
telle ou telle des possibilités de l’appa- 
reil, à choisir en fonction de ses désirs 


J'AI CHANGÉ D'ADAESSE 
TROUS Fois EN TRo’s ANS 
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ou de ses besoins. Je cite, pêle-mêle : 
Too! 64 (gestion de l'écran et gra- 
phisme haute résolution), Master (ges- 
tion de l’écran et des disquettes), Graf 
64 (dessin), Synthy 64 (musique), etc. 
Certaines de ces aides se présentent 
sous forme d’une cartouche, d’autres 
sous forme d’une disquette. J’ai choisi 
d’essayer l’une des plus répandues, et 
certainement l’une des plus remarqua- 
bles : Tool 64, autrement (et en toute 
modestie) dit « the Tool », l’Outil. 


Tool 64, écrit par Micro Application 
et diffusé par Procep, se présente 
physiquement comme un petit classeur 
rigide, bien décoré. Le dos de la cou- 
verture contient, dans une poche plasti- 
que, la cartouche destinée à être enfi- 
chée dans le connecteur arrière du 
C. 64 (aucune erreur n’est possible). Le 
classeur contient également une docu- 
mentation rédigée en français, très 


ÊT POURTAN, 


JÉ N'A\PAS DÉNÉNAGE . 


complète et très claire, qui présente et 
commente les principales caractéristi- 
ques du logiciel : une cinquantaine de 
pages, imprimées seulement d’un côté, 
et classées par thèmes. 


La lecture des rubriques permet de se 
rendre compte très vite que Tool sim- 
plifiera la vie du programmeur essen- 
tiellement dans trois domaines : la 
génération d’écrans, la haute résolution 
graphique, et l’aide à la programma- 
tion. Quelques autres facilités non 
négligeables sont offertes en complé- 
ment, et un appendice permet de 
retrouver rapidement le nom des ins- 
tructions supplémentaires, leur syntaxe 
et leur fonction. Chaque page de 
l’ouvrage présente une nouvelle instruc- 
tion en donnant, de façon sommaire 
mais efficace, sa forme, sa syntaxe, son 
rôle et un exemple ou deux d’utilisa- 
tion. Tout cela est très clair, et permet 
d'utiliser très rapidement les possibilités 
du logiciel. 

À vrai dire, on se demande même, 
quand on a découvert un C. 64 muni 
de la cartouche Too, comment on 
avait pu jusqu’alors se passer d’un tel 


J'AUHABITÉ Ih RUE 
GAMBETTA, PUIS 16 Ruc 


GAHBETTA, 
Puis 12 


RUE 


CAN PET 
(ET 
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dure 07 


Tool 64 
est riche 
en fonctions 
graphiques 


S6Ci+5S 


outil ! Vous connaissez certainement le 
refrain : « Ah, si j’avais connu plus 
tôt... ». Toujours est-il que, dès les 
premières secondes, on se rend compte 
que quelque chose a changé : l’affi- 
chage est en noir sur fond blanc, et non 
plus en bleu foncé sur fond bleu clair, 
comme c’est le cas normalement. De 
plus, la présence de Tool est immédia- 
tement signalée par un petit message : 
« The Tool 64 / (c) Micro Application 
/ 30719 bytes free » (au lieu des 38911 
annoncés normalement) : le prix à 
payer en mémoire pour bénéficier des 
facilités offertes est donc de 8 Ko! 


DEPUIS QU'LS oùT 


UN ORDINATEUR 
fr LA VOIRE, 
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Haute 
résolution, 
en couleurs 
ou en 

noir et blanc 


Reste à savoir, bien sûr, si le jeu en 
vaut la chandelle. 


L'affichage, d’abord : TLINE et 
TCOL pour dessiner des lignes horizon- 
tales ou verticales, en n’importe quel 
point de l’écran texte (soit 24 lignes de 
40 colonnes) et de n’importe quelle lon- 


LS PASSENT LEUR TENPS 
A RENUHEROTER. 


gueur. CLEAR, pour effacer n’importe 
quelle portion d’écran. OUT, pour affi- 
cher un texte à partir de la ligne et de la 
colonne désirées ; ainsi, OUT « BON- 
JOUR », 5, 8 provoquera l’affichage 
du mot BONJOUR à la huitième 
colonne de la cinquième ligne. La com- 
mande REV permet de changer la cou- 
leur (fond ou caractères) d’une fenêtre 
de l’écran. SCROLL fait défiler tout 
ou partie de l’écran dans la direction 
désirée. Toutes ces instructions sont 
bien entendu suivies d’un certain nom- 
bre de paramètres grâce auxquels on 
indique les lignes, les colonnes, la lon- 
gueur et la largeur des fenêtres concer- 
nées. 


A cet ensemble d’instructions, déjà 
intéressant en lui-même, s’en ajoutent 
d’autres qui permettent l’acquisition de 
données et utilisent les concepts de 
page écran et de masque de saisie, avec 
des zones associées, en entrée ou en 
sortie. Ces fonctions, très puissantes, 
sont obtenues ici par des instructions 
faciles à employer : on définit une zone 
(parmi 128 possibles, pour une seule 
page écran) ; on effectue une saisie 
dans cette zone, et on transfère le résul- 
tat de cette saisie dans la variable dési- 
rée. 

La définition d’une zone se fait au 
moyen de l'instruction DECZ, suivie 
d’un numéro d'identification, de la 
ligne et de la colonne d’origine, de la 
longueur (jusqu’à 255 caractères) et du 
type de contrôle effectué dans la zone. 
On peut saisir des données numériques, 
des textes, et définir la ou les touches 
de sortie de zone. Toutes les possibilités 
d’édition du C. 64 restent valables dans 
cette zone (déplacement du curseur, 
insertion, effacement...). 

Si l’on dépasse la longueur prévue 
lors de la saisie, on en est averti par 


TLS DoivenwT Avoil 


UN TooLkirT | 
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une inversion vidéo : le curseur revient 
en début de zone et l’on peut recom- 
mencer la saisie, s’il y a lieu. La zone 
ainsi définie sera concrètement utilisée 
par une instruction REQZ n (qui 
« réquisitionne » la zone numéro n1) : le 
curseur sera dès lors positionné au 
début de la zone définie par un DECZ 
n. Une troisième instruction sera utili- 
sée pour transférer les données prove- 
nant de la zone n dans une variable 
alphanumérique au choix de l’utilisa- 
teur. 


Toujours dans les instructions 
d’acquisition de données, on notera la 
présence d’une intéressante instruction 
notée CARGET, qui améliore considé- 
rablement le célèbre GET A$ : on peut 
attendre un caractère, parmi ceux que 
l’on a présélectionnés, et ceci à un 
endroit quelconque de l’écran.- Ainsi 
CARGET « abc » suspend l’exécution 
du programme tant que l’une des tou- 
ches a, b, ou c n’a pas été frappée. La 
touche choisie sera d’ailleurs reconnue 
et enregistrée sous deux formes : un 
numéro d’ordre d’une part (1 pour a, 2 
pour b et 3 pour c) stocké dans la 
variable réservée OK, et d’autre part la 
valeur ASCII du caractère choisi, 
emmagasinée dans ZO (qui est la 
deuxième variable réservée utilisée par 
The Tool). 


Les pages d’écran, si l’on dispose 
d’une unité de disquette, sont sauvegar- 
dées, effacées ou chargées au moyen 
des trois instructions SSAVE, SLOAD, 
et SCLEAR. 


Passons maintenant aux graphismes. 
Le système The Tool permet au C. 64 
de fonctionner sous deux modes : le 
mode Texte et le mode Graphique. Les 


instructions valent pour les deux 
modes. Cela dit, le système différencie 
et mémorise séparément l’écran graphi- 
que et l’écran texte. Le passage de l’un 
à l’autre se fait très simplement en 
tapant TEXT ou GRAPHIC, selon le 
cas. De plus, l'instruction SSAVE, que 
nous avons déjà rencontrée, sauvegarde 
la page courante (texte ou graphique), 
qui sera effacée par SCLEAR. 


Les instructions graphiques permet- 
tent de travailler sur un écran haute 
résolution de 200 X 320 points. L'origine 
est logiquement placée en bas à gauche. 
MOVE positionne le curseur, PLOT 
allume ou éteint un point, DRAVW trace 


ou efface une ligne, POINT teste l’état 
d’un point et DISPLAY permet l’affi- 
chage d’un texte dans l’écran graphi- 
que. La couleur est définie par blocs de 
8 fois 8 points. Tout cela est assez com- 
plet et facilitera beaucoup la réalisation 
d’affichages de qualité. 

Avez-vous fait le tour de Tool ? Bien 
sûr que non. Parmi les autres instruc- 
tions intéressantes, notons : 

e RENU qui renumérote les lignes d’un 
programme Basic ; 
e DUMP qui affiche la liste des varia- 


… bles utilisées et leurs valeurs après une 
. exécution ; 


e ERROR qui indique la ligne où la 
machine détecte une bogue ; 

e FIND qui retrouve la ou les occur- 
rences d’une chaîne de caractères, dans 
un programme Basic ; 

e TRACE, enfin, pour l’exécution pas 
à pas d’un programme. 


Autant d’aides à la mise au point des 
programmes. 


A l’usage, The Tool m'est apparu 
comme un complément de qualité, tout 
à fait utile pour qui veut programmer 
des applications faisant appel à de 
nombreuses saisies et à des écrans mul- 
tiples. Le prix (environ 640 FF) paraît 
très raisonnable en regard des avanta- 
ges apportés. Incontestablement, ce 
logiciel rend le Commodore 64 beau- 
coup plus agréable à utiliser. Est-ce un 
compliment pour cet ordinateur ? 


Jacques DECONCHAT 
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LE BASIC ÉTENDU 


E Basic étendu (en anglais 


DU TT99/4A 


TI Extended Basic) se présente sous la forme 
d'une cartouche de mémoire morte. C'est un ensemble de fonctions sophistiquées 
et pas courantes qui facilitent la gestion de l'écran et l'écriture des programmes. 


Comme on va le voir, on y trouve bon nombre d'ingrédients très utiles. 


L’attrait principal du Basic 

étendu réside sans aucun doute 
dans la manipulation des lutins graphi- 
ques. Rappelons qu’il s’agit de symbo- 
les graphiques mobiles doués d’autono- 
mie dans leurs déplacements. Ils se 
superposent au contenu de l’écran sans 
l’effacer. Cela permet toutes sortes 
d'animations de sujets au travers d’un 
décor qui reste fixe : Pac Man, Startrek 
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— ou textes. Il s’agit toujours de dépla- 
cer des images en deux temps trois 
mouvements. 

C’est évidemment l'aspect le plus 
spectaculaire du Basic étendu. Imaginez 
non pas 8, 12 ou encore 16, mais bien 
28 lutins de 16 couleurs différentes, 
dessinés en haute résolution et circulant 
sans saccades en même temps sur 
l'écran ! Chacun d’eux est défini par 


son nom, le code ASCII affecté à sa 
définition, sa couleur, ses coordonnées 
de départ ainsi qu’un secteur vitesse 
(entre —128 et +127) atteignant un 
écran par seconde (instruction CALL 
SPRITE). Ajoutez à cela des fonctions 
complexes telles que POSITION qui 
peut indiquer la position absolue de 22 
lutins simultanément dans autant de 
variables. 
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| 
? 


=. Ne: 


Le manuel 
* et la cartouche 
du Basic 
étendu 


x 


DISTANCE évalue les positions rela- 
tives de deux lutins (ou bien d’un lutin 
et d’un caractère) tandis que COINC 
détecte la coïncidence de deux lutins 
(ou d’un lutin avec un caractère) en un 
même emplacement. En effet, les lutins 
sont dotés de numéros prioritaires pour 
l’affichage en cas de recouvrement ou 
chevauchement. MOTION modifie la 


Un tout 
petit programme 
est lancé et. 


?L8 x SEE EL 
14 GES LE ÉRRRte coca 
3CÉ4 
12 TS LAY ATCS8:82: "BONJOUR 
139 CALL SPRITECEHI:96:5:-92;1 
140 CALL SPRITE<#2- 96:52:45: 4 
150 C 
159 CALL MHRGNIFYC22 
,1°90 NEXT 1! 


vitesse d’un lutin (sprite anglais) en 
cours de déplacement, et PATTERN sa 
forme, sans affecter les autres paramè- 
tres : l’illusion du mouvement devient 
parfaite. LOCATE transfère immédia- 
tement un lutin d’un point à un autre 
de l’écran, et DELSPRITE le retire de 
la circulation. Non content de cela, le 
Basic étendu possède une fonction 
« zoom »: MAGNIFY agrandit 
jusqu’à trois fois un caractère de base ; 
en composant des lutins de taille maxi- 
mum, on arrive facilement à animer 
tout l’écran avec de grands mobiles 
complexes. 


Autour de ces nouvelles macro- 
instructions graphiques viennent se 
greffer des fonctions améliorées du TI 
Basic : DISPLAY AT est l’équivalent 
de PRINT AT qui débute l'affichage 
aux coordonnées indiquées. Existent 
aussi PRINT USING et DISPLAY 
USING suivis obligatoirement d’un 
numéro de ligne où figurent des indica- 
tions de format (IMAGE). Plusieurs 
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formats peuvent être définis au sein 
d’un même programme et sélectionnés 
séparément. ACCEPT AT est un déve- 
loppement du classique INPUT, il uti- 
lise la liste de paramètres suivante : 


e coordonnées du curseur, 

. activation du clavier alphabétique ou 
numérique, 

e validation limitée aux touches dési- 
gnées, 

e bip sonore, 

e effacement de l’écran avant message, 
e variable. 


Cette richesse déroutante dans les 
options permet de tirer le meilleur parti 
de séquences préprogrammées dans la 
majorité des situations. IF THEN 
ELSE en est la preuve, qui revêt la 
structure IF condition THEN instruc- 
tion ELSE instruction, où instruction 
peut être différent de GOTO. 


Parmi les autres améliorations de 
taille, citons les trois suivantes : des 
messages d’erreur plus complets qu’en 
TI Basic, et surtout plus explicites, la 
possibilité de plusieurs instructions sur 
une même ligne ; et enfin un meilleur 
manuel d’emploi. Nous reviendrons sur 
ce dernier. 


Au chapitre des fonctions très utiles, 
citons ON ERROR GOTO/GOSUB, 
secondée par ERR qui contient le der- 
nier message d’erreur enregistré. ON 
WARNING permet de ne pas tenir 
compte des messages système — ou 
mieux, de les remplacer par les vôtres. 
SIZE est l’équivalent du FREÉE qui rap- 
pelle le nombre d’octets disponibles en 
mémoire. La commande RPT$ est une 
des plus puissantes du genre: elle 
répète une chaîne alphanumérique dans 
une instruction autant de fois qu’il est 
spécifié, et au besoin en répétant l’ins- 
truction. 

Les fonctions de ce type sont assez 
complexes à utiliser, mais elles sont 


bien pratiques : une lecture attentive du 
manuel s'impose. Celui-ci est bien 
conçu, ce qui est étonnant quand on se 
souvient de celui du TI Basic. Les 
ordres Basic y sont classés par ordre 
alphabétique dans des fiches explicati- 
ves illustrées d'exemples, tandis qu’une 
introduction structurée rétablit un 
ordre de lecture correct pour le novice. 
Les tables et index divers n’ont pas été 
négligés et sont repris dans une dizaine 
d’appendices finaux. 


Continuons notre description avec les 
fonctions booléennes AND, OR et 
NOT, puis MAX et MIN; les fonc- 
tions de gestion de fichier sont décrites 
dans le détail, mais de manière assez 
obscure : signalons rapidement un 
MERGE pour fusionner deux program- 
mes, REC pour localiser un enregistre- 
ment, et LINPUT pour saisir une ligne 
de texte complète. 


Quant aux fonctions LOAD, LINK, 
PEEK et INIT de l’assembleur, ainsi 
que SAY et SPGET, leur utilisation 
nécessite les extensions assembleur et 
synthétiseur de parole. 


Nous avons bien sûr gardé le meil- 
leur pour la fin : il s’agit du contrôle 


AULHTE 


. deux sympathiques 
lutins nous 
saluent |! 


de procédures de type « Pascal » , SUB 
« texte » permet de nommer une rou- 
tine limitée par SUB END, et exécuta- 
ble par CALL « texte ». 

A la différence du Pascal, il n’y a 
pas passage de variables, car les varia- 
bles concernées doivent être déclarées 
en début de routine et conservent leur 
valeur courante. Cette caractéristique 
prometteuse est particulièrement adap- 
tée à l’initiation au Basic et à l’algorith- 
mique. Voilà qui ajoute encore à l’inté- 
rêt de ce module qui vaut environ 
500 FF ttc (distribué par Texas Instru- 
ments). 


Michel ARDITTI 
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COMPACTOR POUR TO7 


Fo par TO TEK (prononcer Té-6-tek) Compactor 
est un utilitaire — praticiel — en cartouche, destiné 

aux utilisateurs du TO7. Il sera utile à tous ceux 

qui souffrent du problème classique de manque d'espace mémoire, 
ou plus simplement à ceux qui veulent optimiser leurs programmes. 


COMPACTOR 


MOIXx DES PERIPHERIS 


support ( D r € 


Ficnier TEST 
TEST1 


Compactor comporte cinq options 
de travail : une renumérotation 
automatique, une table de références, 
une suppression des commentaires, une 
suppression des espaces inutiles et un 
compactage. 


La première option, renumérotation, 
permet une renumérotation des lignes 
du programme ou d’une partie du pro- 
gramme seulement. Elle corrige aussi 
les branchements comme GOTO ou 
GOSUB. Les paramètres à fournir sont 
le numéro de la première ligne, le nou- 
veau numéro à lui attribuer et le pas de 
numérotation. 


La rencontre d’un problème en cours 
de programme entraîne un message 
d’erreur. 


Cette option est utile : elle améliore 
la présentation des programmes et leur 
lisibilité. Elle permet en outre d’insérer 
des lignes oubliées, entre deux lignes 
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Compactor 
informé 
fera bien 


son travail 


consécutives (une ligne 125 entre les 
lignes 120 et 130, par exemple). 


La deuxième option, références croi- 
sées, offre à ceux qui programment la 
possibilité de mieux connaître la struc- 
ture de leur programme. Elle donne 
sous forme de tableau la liste des lignes 


où apparaissent les variables et les 
lignes comportant des branchements. 


Ce tableau peut être obtenu sur 
l’écran ou sur l’imprimante. Pour les 
variables, il comporte leur nom, le 
numéro des lignes où elles apparaissent 
et le nombre d’apparitions sur la ligne. 
Pour les branchements, seuls apparais- 
sent le numéro des lignes où sont effec- 
tués des branchements et l’adresse à 
laquelle ils conduisent. 


Cette table de références croisées per- 
met un travail de maintenance et 
d'optimisation efficace. 


Pour supprimer toutes les lignes de 
commentaires qui occupent de la place 


FAITES VOTRE CHOIX : 


Le menu 
de Compactor 
propose 


cinq options 


5 EN D Eu ft + 
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CC © 


pr] 


EE FROGERAMNE TEST 
IHPLIT" LC 
CH E 
SOTO 145 


FEN 1EF CHE 
GOSUE Sa 
RETUEH 

PEN CEME CHES= 
CMFTI=A 
CMPFTI=CMPT1+1 
FOR COMPTEUR=S TO 264 
F FEN LIGHE IHUTILE 
HEXT CONMPTELUR 


Gt du Et da Si EN Et 


++ 19 0 li mir 
_ 
Ex 


ei Pi Pire pe be pe pen 


ARR | 


IF CHFTISI1A THEH GOTO 45 


FRIHT'TERMINHE" 
FETURH 

1 FENM SF 
PRIHT "YOULS 
FETLURH 


FEM LIGHE COHSERVEE AFFES COMPACTAGE 


Un programme 
test en 

exemple : il 
occupe 377 octets. 


en mémoire mais n’interviennent pas 
dans. le déroulement du programme, la 
troisième option, suppression des rem, 
est indispensable. 


Et si le programme est abondamment 
commenté, quel gain de place 
mémoire ! De plus, l’exécution du pro- 
gramme en est plus rapide. Mais il est 
trop tard pour chercher à comprendre 
ce qui se passe dans le programme. 


Avec la quatrième option, suppres- 
sion des blancs, seuls les espaces inuti- 
les du programme seront supprimés. Là 
encore, on gagne de la place en 
mémoire et l’exécution du programme 
devient plus rapide. Si les commentai- 
res du programme sont intacts, 
l’absence des blancs rend la relecture 
des lignes de Basic moins aisée. 


La dernière option, compactage, est 
l'option majeure de Compactor ! Elle 
effectue un travail complet de « net- 


EDUCLE WIDE 


AYEZ CHOISI: 


D] 
Me] 


EN EN A Gi M 0 CN CD ONE 


FETUEH 
LHPFTI=E 


CD I Pi CN Be Lit tiliMire mis 


FETUEH 
REN SF 
FRIHT 
FETURH 


"M REFOHS 


Re 


Bin 
Dunes 


toyage » du programme avec renumé- 
rotation, suppression des commentai- 
res, suppression des espaces inutiles, 
réduction des THEN-GOTO, réduction 
des noms de variables, concaténation 
des lignes. 


Cette option permet un gain particu- 
lièrement important de place mémoire. 
Mais une fois soumis à ce compactage, 
le programme ne peut généralement 
plus être édité ou modifié facilement. 


Cette opération de compactage 
n’équivaut pas à une véritable compila- 
tion. Il s’agit en fait d’une optimisation 
intéressante, tant par l’occupation 
minimum de la mémoire que par la 
vitesse d’exécution du programme 
(encore que le gain en vitesse ne soit 
pas énorme). 


Son principal défaut est de rendre les 
programmes pratiquement non modi- 
fiables — bien qu’il ne s’agisse pas, 


IHPUT®YOTRE CHOIX "5 R AS: CHVALE RAS GOSUEZ, 3: G0TO1 


LRE : FETUEH 


î 


R=C+ 1 : FORCASGTOSGR : HEXTCI : IFCAÉ1ATHEHS 
FRIHT"TERMIHE" : RETUEH 
PRIHT"MOUS AYEZ CHOISI: 

F REN 


RGS : RETURH 


Après avoir subi 
le compactage 
(option 5) 
le programme 
n'occupe plus 
que 154 octets ! 
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EE 


VOUS AYEZ CHOISI: 


FEM FROGRAMME TEST 
IHPUTUYOTRE CHOIX 
OH VALCREFONH#: GOSUE 125, 144 
GOT 145 


"3 REFOHS 


REM 1ER CAE 
GOSLE 185 


FEN SEME CAS= EOUCLE WIDE 


CHETIZ=CHPTI1+1 

FOR COMFTEURSE TO GE 

EEM LIGHE IHUTILE 

HEXT COMFTEUF 

IF CHPTIS1E THEH GÜTO 154 
PEIHT'TERMIME" 


": REFOHS 


FEM'LIGHE COHSERVEE APRES COMPACTAGE 


Sous l’action de 
la première option, 
le programme 

est renumérofé. 


notons-le, d’une véritable compilation. 
Il ne faudra donc compacter que des 
programmes parfaitement au point. 


Compactor est utilisable avec l’équi- 
pement minimum que constituent 
l’unité centrale et son magnétophone. 


Toutefois, un lecteur de disquette et 
une imprimante simplifieront sensible- 
ment le travail. En effet, l’édition sur 
papier de la table des références croi- 
sées est d’un emploi plus pratique 
qu’une édition sur l’écran… 


Qu'il soit lu sur cassette ou sur dis- 
quette, le programme modifié est réé- 
crit sur le même périphérique. Atten- 
tion donc aux erreurs de manipulation 
pouvant entraîner la perte du pro- 
gramme original. 


Il est tout à fait conseillé d’utiliser 
Compactor sur une copie, et de conser- 
ver l'original en archives. 


L'utilisation de Compactor satisfera 
ceux qui aiment programmer sur leur 
TO7. Ils pourront enfin renuméroter, 
gagner en mémoire et en vitesse d’exé- 
cution, compacter un programme. Un 
plaisir qui leur coûtera environ 490 FF 
ttc. 


Jean-Pierre LALEVÉE 
LIST - PAGE 15 


PETITE HISTOIRE DES LANGAGES 


LANGAGE-MACHINE 


ET ASSEMBLEUR 


EU importe que vous trouviez, vous, que 5e 
nourrir tous les jours de Gourmet-Fotes- 
Volailles est totalement insipide alors qu'il y a 
les frites et les fonds d'artichaut Saint-Louis. 
C'est à votre chat siamois de vous imposer 
son goût en ce qui concerne le contenu de son plat, 
et non à vous de lui dicter le vôtre. 
Ainsi vous ne vibrez qu'avec Basic on Pascal, 
mais votre processeur Z 80 
se moque de vos INPUT et BEGIN 
comme de sa première bogue. 
Son régal à lui, chacun le sait, 
c'est bien entendu le langage-machine (ou binaire) 


Voici un court exemple de ce 
dont se nourrit en fait un pro- 
cesseur : 


00100001 10100011 01110010 
01000110 10010111 00100011 
10111110 00110000 00000001 
01111110 00010000 11111001 
00110010 11110010 01111010 


Les cent vingt chiffres écrits ci- 
dessus, séparés par des espaces corres- 
pondant à la localisation des instruc- 
tions dans l’ordinateur, ne sont pas 
écrits au hasard. C’est le programme 
qui consiste à prendre le plus grand 
d’une série de nombres placés dans les 
mémoires de la machine. Nous revien- 
drons à lui un peu plus tard. 


Le premier programmeur de l’his- 
toire, la célèbre comtesse Augusta Ada 
Lovelace, fille de Byron, utilisait déjà 
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en principe ce genre de langage (cf. ses 
mémoires scientifiques de 1842 sur sa 
contribution à la « machine analyti- 
que » de Charles Babbage). Mais on 
sait que l'ordinateur théorique sur 
lequel elle travaillait n’a jamais été 
construit. Il vaut donc mieux remonter 
aux véritables débuts de l’informatique. 
Les pionniers des années quarante 
n’avaient en fait que deux moyens de se 
faire obéir : 


eou bien câbler les machines de 
manière convenable avant le début de 
chaque application, par exemple en 
ouvrant et fermant toute une batterie 
d’interrupteurs, 


. ou bien écrire de véritables program- 
mes placés à l’intérieur même des 
mémoires (c’est le coup de génie de 
Von Neumann), qui sont effectivement 


des listes de 0 et de 1 et constituent des 
codes binaires en langage-machine. 


Bien entendu utiliser de tels symboles 
est un supplice, et les erreurs d’écri- 
ture sont infiniment probables (sans 
compter que la relecture est presque 
impossible). Très vite on s’est préoc- 
cupé d’établir des moyens automati- 
ques d'écriture de ces fameuses listes. 
Ce furent les premiers assembleurs. 
Aujourd’hui trop de gens confondent, 
à tort, assembleur et binaire. L’assem- 
bleur constitue déjà un très gros pro- 
grès sur le langage-machine. En fait le 
programmeur est amené à utiliser sur 
son clavier ce que l’on appelle des mné- 
moniques qui seront transformées 
directement en zéros et en uns par un 
programme, écrit une fois pour toutes, 
qui s'appelle lui aussi « assembleur ». 
De ce point de vue-là, il n’y a donc pas 
de différences fondamentales entre lan- 
gage évolué et assembleur, dans la 
mesure où tous deux devront subir 
ensuite une traduction, « interpréta- 
tion » ou « compilation », heureuse- 
ment automatique, pour être utilisable 
par l’unité centrale. 


Une première simplification consis- 
tait bien sûr à traiter les 10111110 
comme des nombres ‘écrits en binaire, 
que l’on peut mémoriser sous leur 
forme usuelle (c’est-à-dire décimale) ; 
c’est ainsi que le programme ci-dessus 
est encore équivalent à la suite des 
quinze nombres 33 163 114 70 
151 35 190 48 1 126 16 
249 50 242 et 122: par exemple le 
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RE CR 


nombre binaire 10111110 = 190 en 
décimal. Pour plus de commodité, on 
utilise en fait l'écriture hexadécimale de 
base seize et non dix. Les chiffres en 
sont, outre 0 1 23 45 6 7 8 9, les 
signes À (=10), B (=11), C (=12), D 
(=13), E(=14)et F(=15). Voilà donc 
la liste complète en hexa de notre pro- 
gramme Z 80 de calcul du plus grand 
terme d’une suite de nombres : 

21 A3 72 46 97 23 BE 30 01 7E 10 
F932F27A. Ainsi, par exemple, 


10111110 = 190 (déc) = BE (hexa). 


Mais cette simplification est juste un 
raccourcissement ; elle ne donne 
aucune indication qui puisse aider un 
peu à la compréhension des instruc- 
tions. En effet 10111110, qui signifie 
« comparer le contenu du registre dont 
le numéro d’ordre est contenu dans le 
registre HL à celui de l’accumulateur 
À, et mémoriser un symbole de retenue 
si et seulement si la valeur en A était 
strictement inférieure », sera peut-être 
un peu plus facile à reconnaître de loin 
si on l’écrit sous la forme symbolique 
CP (HL). Au moins les lettres CP, par 
exemple, évoquent-elles bien une com- 
paraison, alors que 10111110 n’a guère 
de chances de dire quoi que ce soit à 
personne... 


C’est donc là l’intérêt de l’assembleur. 
Ecrivons une fois de plus notre pro- 
gramme machine avec ces codes un peu 
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moins hermétiques (?). Cela donne : 
LD HL,72A3H 
LD B,(HL) 
SUB A 
INC HL 
CP (HL) 
JR NC,L2 
LD A,(HL) 
DJNZ LI 
LD (7AF2H),A 
où l’on peut lire LD pour « load » (= 
charger), SUB pour « soustraire », CP 
pour « comparer », À, HL... étant des 
noms de registres (mémoires spéciali- 
sées), 72A3 une adresse en hexadécimal 
(d’où la finale H), etc. Même si un pro- 
fane ne voit pas très bien l’étendue du 
gain, quelques heures de pratique le 
persuaderaient facilement de la diffé- 
rence. 

Dans la pratique, un programme 
écrit en assembleur se présente de la 
manière suivante : 


8000 

8000 21A372 
8003 46 
8004 97 
8005 23 
8006 BE 
8007 3001 
8009 7E 
800A 10F9 
800C 32F27A 00190 
8000 00200 
00000 Total Errors 

L2 800A 

Li 8005 

TRS 8000 


00100 
00110 TRS 
00120 
00130 
00140 LI 
00150 
00160 
00170 
00180 L2 


K 


Ÿ objet. Elles sont évidemment fonction 


Les deux colonnes de gauche sont 
mises au point automatiquement par le 
programme spécial de traduction (sou- 
vent écrit par le constructeur de la 
machine et appelé « éditeur assem- 
bleur » ; il figure généralement sur une 
disquette ou une bande magnétique), 
mais seulement à la fin de l’assem- 
blage. Elles constituent ce que l’on 
appelle d’un nom pompeux : le code- 


| de ce qu'a réellement écrit le program- 

meur ; celui-ci a d’abord enclenché un 
processus de numérotage des lignes, ici 
de 100 à 200, puis frappé sur son cla- 
vier les contenus des autres colonnes 
situées à droite sur la figure, qui consti- 
tuent le code-source : de la source est 
né un objet (curieux langage.….). 


La première ligne fixe une origine 
(ORG), c’est-à-dire détermine l’adresse 
physique de la mémoire de l’ordinateur 
où sera situé le début du programme 
lui-même. Les sigles TRS, L1, L2 sont 
des « labels », noms symboliques un 
peu analogues à des variables en Basic, 
librement choisis par l’auteur ; ce ne 
sont donc pas des mnémoniques du 
langage. Tout ce qui suit la ligne END 
TRS (fin du programme TRS) a été 
également calculé par l’éditeur assem- 
bleur, sans intervention humaine. On 
voit qu’il y a eu notamment un con- 
trôle (« 00000 Total Errors »). Ce con- 
trôle ne porte pas sur le contenu logi- 
que du programme, maïs seulement sur 
la bonne conformité de son écriture, ce 
qui est déjà un gage correct d’exacti- 
tude. Reconnaissons que l’aspect exté- 
rieur d’un programme en assembleur 
peut dérouter un profane, qui n’y 
retrouve pas la simplicité d’une liste de 
Basic ou de Pascal. 


Si imparfait que paraisse ce système, 
il s’apprend assez vite en réalité, et 
c’est le seul possible lorsqu'il s’agit par 


8000H 
HL,72A3H 
B, (HL) 

A 


(7AF2H), À 


TRS ; 
Inutile 


de vérifier 
que ce programme 
est Sans erreur, 
c'est écrit ! 
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DRE SET ET 


LANGAGE-MACHINE ET ASSEMBLEUR 


exemple de programmer des jeux gra- 
phiques rapides ou, plus généralement, 
lorsque les problèmes de vitesse d’exé- 
cution sont primordiaux. Ici, comme 
avec une calculette de poche HP ou 
Texas, les mémoires qui doivent 
accueillir telle information sont appe- 
lées effectivement par leur nom (ou par 
un adressage « indirect », également 
présent sur les calculettes haut de 
gamme, où le nom — l’adresse — est 
contenu dans une mémoire dont on 
vous donne le nom, comme dans un jeu 
de piste). C’est pour cela que l’ordina- 
teur peut aller très vite. 


L’assembleur est assez ancien; il 
existe depuis 1950 environ. Parmi ses 
inventeurs figurent des personnages 


prestigieux : chez Univac on peut citer 
Grace Hopper, officier de la Marine 
américaine, née en 1907 (eh oui, Mrs 
Hopper est du sexe féminin) et toujours 
en activité en 1984 avec le grade de 
Commodore (sic) d’après notre con- 
frère Time Magazine ; John Backus, 
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auteur de Speedcode (premier langage 
d’assemblage d'IBM) qui fit également 
parler de lui par la suite, notamment 
avec Fortran. (J’emprunte ces rensei- 
gnements au merveilleux livre Ainsi 
naquit l’informatique de René Moreau, 
paru en 1982 chez Dunod.) 


Bien entendu, il n’y a pas d’assembleur 
standard, mais presque un assembleur 
par ordinateur. Même s'ils ont des 
structures analogues, chaque langage- 
machine est très dépendant du maté- 
riel : il est normal qu’il en soit de 
même des assembleurs qui y donnent 
accès. 


Prenons un exemple récent. Dès la 
commercialisation du PC-1500 de 
Sharp, son langage-machine commen- 
çait déjà à être exploré par des fanati- 
ques astucieux — voir les articles de 
notre confrère L'Ordinateur Individuel 
et, bien sûr, ceux de /’Ordinateur de 
poche. Le constructeur n’avait donné 
aucune indication dans ses manuels ; 
aussi les premiers articles publiés et le 
premier programme éditeur assembleur 
conçu et commercialisé pour le PC- 
1500 utilisèrent-ils les codes mnémoni- 
ques du Z 80 (ceux de l’exemple donné 
plus haut). Lorsque Sharp s’est enfin 


x 


décidé à diffuser en avril dernier son 


HT, CPU ERTOUREE 
EE a 


propre livre de programmation 
machine, il employa d’autres mnémoni- 
ques, ce qui ne simplifie rien ! Pour 
tout arranger, le langage-machine du 
PC-1251 est encore différent. 


Le tout premier programme assem- 


bleur ne pouvait, naturellement, 
qu'être écrit lui-même en langage- 
machine. Mais depuis ce temps, cette 
ineffable corvée peut être évitée et les 
nouveaux assembleurs sont eux-mêmes 
rédigés en assembleur, voire en langa- 
ges évolués comme Pascal. Dans la pra- 
tique donc, seules des applications très 
spéciales se font encore en 0 et en 1. 
On peut pratiquement dire que le 
langage-machine est mort, même s’il 
continue à être le seul effectivement 
utilisé dans les entrailles de tous les 
ordinateurs du monde, grands et 
petits ! 


C’est un trait typique de l’informati- 
que, qui n’est qu’un gigantesque jeu 
d'illusions où la réalité est sans cesse 
occultée par des masques. On dit qu’il 
y a « transparence » au niveau de l’uti- 
lisateur. À la programmation réelle en 
langage binaire, au compromis encore 
relativement proche des circuits que 
constitue le recours à l’assembleur, 
s’est souvent substitué l’usage des lan- 
gages de haut niveau, vaguement cou- 
sins de l’anglais de base. Enfin, dans 
un but de vulgarisation complète, on 
voit de plus en plus l'utilisateur 
« final » renoncer à toute programma- 
tion et recourir à divers artifices (sou- 
ris, écrans tactiles...) pour mettre en 
œuvre des logiciels tout faits et ignorer 
à jamais les subtilités des zéros et des 
uns ; qui s’en plaindrait si cela doit 
faire encore baisser les coûts des maté- 
riels ? Mais il restera heureusement 
toujours des gens assez intéressés pour 
créer leurs propres programmes. LIST 
est là pour les y aider... et leur procu- 
rer de nombreuses heures de passion ! 


André WARUSFEL 
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FAITES LE TOUR DE 
VOS BOUCLES FOR..NEXT 


OMME tout autre langage, Basic a 5es patois. 


Une 


même 


instruction ne 


réagit pas 


toujours de façon identique d'une 

machine à l'autre. Cela mérite une petite 
enquête. Voici quelques idées pour découvrir par 
vous-même la vraie nature d'un Basic étonnant : 


celui de votre ordinateur. 


Vous connaissez la boucle 

FOR...TO...NEXT pour l'avoir 
utilisée sans compter dans tous vos pro- 
grammes : elle fait partie des fonctions 
de tous les Basics. Nous vous propo- 
sons d’achever convenablement les pré- 
sentations : préparez-vous à rencontrer 
un mutant et installez-vous devant 
votre clavier avec un crayon et un bloc 
de papier. 

La boucle FOR...NEXT possède 
généralement la syntaxe suivante : 
FOR À = B TO C STEP D 
.. programme à répéter (C-B/D) fois 
NEXT A 
ce qui signifie que la variable A va 
prendre successivement toutes les 
valeurs de D en D qui seront comprises 
dans l’intervalle (B, C). Entrez mainte- 
nant le programme qui nous servira de 
test : 


—tœ 
al 
© 
Q 
2 
a 
tm 
TV 
(e] 


Vérifions ensuite la vraie significa- 
tion de FOR-NEXT. Il peut s’agir de 
faire jusqu'à ce que (condition), ou 
bien encore de fant que (condition 
faire). 

Si la condition n’est jamais vérifiée, 
la boucle sera exécutée au moins une 
fois dans le premier cas, et jamais dans 
le second. 


Faites RUN pour en avoir le cœur 
net. SiE = 2, votre FOR-NEXT est de 
type « jusqu’à » ; si E = 1, c’est un 
« tant que ». 
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Maïs alors, combien de boucles 
effectue réellement un : 
FOR A = 1 TO 10 STEP 1! 
NEXT A 


Le résultat peut être 9, 10, ou 11. 
Attention, la valeur de A ne représente 
peut-être pas le bon nombre, mais la 
dernière valeur calculée avant le test 
qui termine la boucle, c’est-à-dire 10, 
11 ou 12 ! A vous de jouer : 
10B=1 
RUN 
Consignez bien le résultat sur vos 
tablettes. Et enchaînons avec des mani- 
pulations hardies. 


Le mot STEP qui désigne la valeur 
du « pas d’incrémentation » est facul- 
tatif : si vous l’omettez, la valeur du 
saut est obligatoirement 1. Certains 
Basics acceptent des STEP —0,5 néga- 


tifs (quand B > C) et décimaux ; véri- 
fiez ces possibilités : 

10 B = 20 

30 D = — 0,5 

RUN 


En cas de succès, réjouissez-vous, 
c’est fort utile en trigonométrie. Exécu- 
tez alors une boucle entre 0 et PI : 
FOR A = 0 TO 3,1416 STEP 0,0001 
NEXT A 


Sinon vous userez d'artifices : 
FOR A = 0 TO 31416 (STEP 1) 
NEXT A 
à condition que votre ordinateur 
accepte de calculer autant de boucles. 


Essayez 

10 B = — 31416 
200C=0 

30 D = 100 
RUN 


qui devrait vous aider si vous êtes 
limité à C < 1000 ou C < 32000 : le 
plus souvent, seule la valeur d’arrivée, 
C, est limitée mais pas celle de départ, 
B. 


Enfin on obtient un STEP décimal 
de cette façon : 


10 B=0 

20 C = 3,1416 

30 D = 0,0001 

100 FOR À = B TO C 
150 À = A + D — 1 
RUN 
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A la ligne 150, nous modifions la 
valeur de A à notre guise ; en est-il de 
même des autres paramètres ? 
Pouvons-nous modifier C, la valeur 
d’arrivée ? 


10 B=1 
20 C = 100 
30 D = 1 
150 C = 50 


Si E est proche de 100, la modifica- 
tion n’a pas été prise en compte, bien 
que C = 50 soit confirmé. (Si E = 50, 
écrivez-nous pour décrire les réactions 
de votre matériel.) 


De même essayons de modifier D. La 
plupart des Basics « compilent » la 
boucle sur la variable A, c’est-à-dire 
que les paramètres sont lus puis codés 
une fois pour toutes à la première bou- 
cle. Les transformations portant sur 
d’autres variables que A ne modifient 
que rarement le nombre final de bou- 
cles. Bonne chasse ! 


Il reste à étudier les boucles imbri- 
quées, elles sont du type : 
100 FOR A = B TO C (STEP D) 
200 FOR F = G TO H (STEP 1) 
300 NEXT F 


400 NEXT A 
Essayez le programme en ajoutant les 
lignes : 
10 B= 1 
20 C = 10 
30 G=1 
40 H =5 
250 PRINT F ; 
350 PRINT A 


qui vous montreront ce qui se passe. 


Il est parfois possible de compacter 
les pas 300 et 400 en NEXT F, A. 
(Mais on ne peut plus intercaler le 
PRINT.) 

Plus simplement encore, un NEXT 
tout seul peut résumer la situation sur 
certaines machines : 

10 FOR I = 1 TO 10 
20 FOR J = 1 TO 4 


30 IF 1 < 10 THEN NEXT 


Cette disposition dite de « contrôle 
de boucles » est une précaution utilisée 
dans le cas où l’on ne connaît pas le 
comportement exact d’une boucle 
Basic. Mais vous saurez vous en dis- 
penser, n'est-ce pas ? 


Michel ARDITTI 
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TRI INTERNE EN 


| 


SUIVEZ LA PRO 


Le algorithmes de tri performants ne 
manquent pas. Pourtant quand il s'agit 
d'écrire une routine classant des données, 

les programmeurs sont pris au dépourvu, ou utilisent 
des méthodes lentes. Pour les amateurs du langage 
Pascal, voici un tri simple à programmer et rapide. 


On appelle tri le réarrangement 

d'articles précédemment classés 
dans un ordre différent. Ce réarrange- 
ment s’effectue à partir de clefs sur les- 
quelles est définie une relation d’ordre 
permettant de comparer deux articles et 
donc de savoir quel est celui qui doit être 
placé avant l’autre. 


Les tris se répartissent en deux gran- 


type UN__ ARTICLE 


des catégories. Les premiers, les tris 
internes, consistent à classer des articles 
qui sont tous présents dans la mémoire 
centrale de l’ordinateur. Les tris dits 
externes, au contraire, manipulent des 
listes d’articles présentes par exemple 
sur disques ou bandes magnétiques et 
qui ne peuvent être logées en mémoire 
centrale. Un bon tri interne n’est jamais 
un bon tri externe car les buts ne sont 
pas les mêmes. Ainsi, un tri interne doit 


échanger le plus petit nombre d’articles, 
alors qu’un tri externe doit effectuer le 
minimum d’entrées/sorties, opérations 
très longues sur les périphériques (dis- 
ques ou bandes magnétiques). 

La procédure Pascal proposée ici est 
un tri interne. Elle ne doit donc être uti- 
lisée que sur des données présentes en 
mémoire centrale. Les articles à trier 
doivent avoir la structure suivante : 


= record 
CLEF :TYPE_CLEF; 
DONNEES : TYPE_ DONNEES 
end ; 


La variable CLEF, comme son 
nom l'indique, est ce que l’on a coutume 
d’appeler la clef ou le critère de tri. C’est 
sur cette donnée que s’effectueront les 
comparaisons qui permettront de savoir 
si un article est plus petit qu’un autre. 
La variable DONNEES, qui peut être 
une liste de variables, mémorise les 
autres informations de l’article. Les arti- 
cles à trier sont stockés dans un tableau 
déclaré, par exemple : 


type ARTICLES : array (1..MAXART) of UN__ARTICLE ; 
var ARTICLE : ARTICLES ; 
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PASCAL : 
CÉDURE 


La constante MAXART désigne le 
nombre maximal d’articles qui peuvent 
être présents dans la variable ARTI- 
CLE. Une variable NBRART indique le 
nombre d’articles à trier. Un tri interne 
ne pourra donc être utilisé que dans le 
cas où NBRART < = MAXART. Dans 
le cas contraire, on aura recours à un tri 
externe travaillant directement sur le 
fichier où sont mémorisés les articles. 
Ainsi, le programme de choix du tri à 
mettre en œuvre s’écrit : 


tri peut alors s’écrire : 


3000 REM TRI INTERNE DE SHELL 
9010 REM --------- 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
9130 
3140 
9150 
9160 
9170 
93180 


LET Echange-=0 


NEXT I 


RETURN 


effectivement présents dans 
le tableau et d’autre part le 
tableau ARTICLE, qui con- 
tient les articles à trier. 


if NBRART < = MAXART 
then 
TRI__INTERNE (NBRART, ARTICLE) 


else 


_. Après l’appel de la procé- 
TRI__EXTERNE (NBRART, ’fichier’) ; 


dure de tri, ARTICLE con- 
tiendra les mêmes informa- 

Comme nous le constatons, les deux tions que celles qui lui ont été communi- 
paramètres de la procédure de tri interne quées, mais dans l’ordre des clefs. Voici 
la procédure : 


sont d’une part le nombre d’articles 


var I, DECALAGE : INTEGER ; 
ECHANGE : BOOLEAN ; 
TEMPORAIRE : UN_ARTICLE ; 


begin 
DECALAGE : = NBRART ; 
repeat 
DECALAGE : = DECALAGE div 2 ; 
repeat 


ECHANGE : = FALSE ; 
for I: = 1 to NBRART - DECALAGE do 
if ARTICLE [1]. CLEF>ARTICLE [I + DECALAGE]. CLEF 
then 
begin 
TEMPORAIRE : = ARTICLE [I] ; 
ARTICLE [1] : = ARTICLE [I + DECALAGE] :; 
ARTICLE [1+ DECALAGE] : = TEMPORAIRE ; 
ECHANGE : = TRUE 
end 
until not ECHANGE 
until DECALAGE <= 1 
end ; 


| 
1 


Les différents éléments successivement comparés deux à deux 


ARTICLE 
14 DECALAGE 


ARTICLE 
2*DECALAGE 
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Tri interne en Basic 


Ï ) n Basic, la procédure doit être légèrement modifiée. Les articles à trier peuvent se 
représenter sous la forme de deux tableaux appelés Clef $ et Donnee $. Un entier 
Nbrart indique Le nombre d’éléments utilisés dans ces deux tableaux. Le sous-programme de 


3020 REM Utilise Les variables I, Echange, Decalage et Tempf 
LET Decalage-=Nbrart 
LET Decalage=INT(Decalage/2) 


FOR 1-1 TO Nbrart-Decal age 
IF Clef$(1)(=ClefS(l+Decalage) THEN GOTO 9150 
LET Temp$-Clef$(I) 
LET Clef$(1)-Clef$(I+Decalage) 
LET Clef$(I+Decalage)=Tempf 
LET Temp$=Donneef(I) 
LET Donneef(1)-=Donneef(I1+Decalage) 
LET Donnee$(I+Decalage)=Temp$ 
LET Echange=1 


IF Echange=1 THEN GOTO 93050 
IF Decalage)>1 THEN GOTO 9040 


Procedure TRI_INTERNE__DE__SHELL (NBRART : INTEGER ; var ARTICLE : ARTICLES) ; 


Cette méthode de tri (inventée en 1959 
par D.L. Shell) est une amélioration des 
différentes techniques de tri par inser- 
tions. Ici, au lieu de comparer un élé- 
ment par rapport à son voisin immédiat, 
il est comparé à celui qui est à une dis- 
tance égale à DECALAGE. Cet algo- 
rithme trie des séries d’articles éloignés 
les uns des autres. Un schéma, au bas 
de la page, illustre ce procédé. 


Comme nous le constatons, cette tech- 
nique de tri de sous-listes permet de faire 
faire de grands sauts aux éléments mal 
placés. Ainsi, un élément de clef très fai- 
ble situé à la fin du tableau « remon- 
tera » très vite par bonds égaux à la 
valeur de DECALAGE. 


Cette procédure vous permettra de 
disposer à tout moment d’un tri à la fois 
court et rapide en exécution. 


Thierry CHAMORET 


ARTICLE 
1+2X DECALAGE 
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ORDINATEUR DE POCHE, O 
TOUTE MÉDAILLE / 


ES ordinateurs de poche et les ordinateurs de 

table ont des caractéristiques bien differentes. 
Faut-il en conclure que les uns finiront par 
supplanter les autres ? Ce n'est pas sür du tout. Ces 
deux catégories de machines ne sont pas concurrentes, 


elles sont complémentaires. 


5 Il Èy a quelques années, la 

situation était bien nette. En 
dehors des cas où ils constituaient des 
outils de calcul choisis en raison de leur 
faible encombrement, les ordinateurs de 
poche étaient les machines des débu- 
tants. On achetait une calculatrice pro- 
grammable « pour voir », pour ne pas 
engager trop de frais dans une expé- 
rience incertaine. 


La machine étant transportable, elle 
suivait son maître (bien souvent un élève 
en fait) dans tous ses déplacements, à 
l’école, au lycée, au bureau parfois, en 
vacances. Et le maître apprenait la pro- 
grammation, vite et bien. Les moyens 
limités du matériel contraignaient alors 
à une démarche assez rigoureuse. 


La situation qui vient d’être décrite 
remonte à quatre ou cinq ans. 
Aujourd’hui, le paysage de l’informa- 
tique individuelle a beaucoup changé. 
Cela a débuté avec des machines telles 
que le ZX 80/81, le TI 99, le Vic 20... En 
arrivant sur le marché à des prix nette- 
ment plus bas que les héros antiques, ces 
nouvelles machines étaient à la portée de 
l'amateur peu fortuné. 


Dès lors, la calculatrice programma- 
ble n’était plus le point de passage quasi- 
ment obligatoire pour accéder à l’infor- 
matique. Elle a donc évolué vers une 
rapidement gagné du terrain et il s’est 
mis à ressembler de plus en plus au Basic 
des « grands ». Dans plusieurs cas, les 


Ensuite, le programmeur devenu plus 
expérimenté commençait généralement à 
rêver d’une machine plus grosse qui 
allait occasionner de sérieux dommages 
à sa tirelire. Un ordinateur de table 
moyen pour amateur coûtait alors le 
prix d’une petite machine profession- 
nelle d’aujourd’hui. Les héros de ces 
temps reculés s’appelaient Pet, TRS 80 
Modèle 1, Apple II, Nascom.. 
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machines de poche ont pris un peu de 
poids pour se doter d’un clavier plus 
confortable et d’un afficheur multiligne 
et l’on a vu apparaître des périphériques 
sophistiqués. Aujourd’hui, on peut tou- 
jours acheter un ordinateur de poche par 
souci d'économie mais on peut aussi 
choisir tel ou tel modèle parce qu’il pré- 
sente des caractéristiques que l’on ne 
retrouve pas sur les machines de table. 


Penchons-nous un instant sur les dif- 
férences existant entre les ordinateurs de 
table et de poche. Quelle influence ces 
différences ont-elles sur la programma- 
tion ? 

Une première constatation crève les 
yeux : les ordinateurs de poche sont 
petits et, par excellence, portatifs. Des 
piles ou des batteries rechargeables leur 
assurent une totale indépendance. A 
l'inverse, les ordinateurs de table ne ser- 
vent à rien sans la prise de courant à par- 
tir de laquelle il faut souvent tisser une 
belle toile d’araignée. Avantage décisif 
des ordinateurs de poche dans ce 
domaine. Même si l’ordinateur de table 
est portatif, on ne pourra pas l’utiliser 
n'importe où. En métro, en voiture, en 
train ou en avion, il n’est ni plus ni 
moins qu’un bagage inerte. 


Contrepartie de sa petite taille et de 
son aptitude à voyager, l’ordinateur de 
poche est équipé d’un clavier minuscule 
qui rend la dactylographie assez déli- 
cate. Mais, dimensions mises à part, ces 
claviers sont dans l’ensemble très conve- 
nables. Or, ce n’est pas toujours le cas 
des ordinateurs de table bas de gamme. 
Ils sont grands, oui, mais la frappe sur 
certains claviers sensitifs ou à touches 
« guimauve » (les touches à la gomme) 
est assez pénible. Heureusement, ces 
deux types de claviers commencent à 
s’améliorer ou à disparaître tout simple- 
ment au profit de claviers mécaniques 
qui sont beaucoup plus confortables. 


Si l’on regarde maintenant du côté de 
l’affichage, les modèles de table sont 
incontestablement supérieurs. L’écran 
couleur d’un moniteur ou d’un télévi- 
seur est autrement plus attrayant, plus 
spectaculaire que le petit afficheur de 
poche. Si l’informatique « familiale » 
connaît un tel succès, elle le doit en 
grande partie à la qualité de ces effets 
graphiques. Sans ces effets, la plupart 
des programmes de jeu, par exemple, 
perdraient beaucoup de leur intérêt. 


Depuis peu, les ordinateurs de poche 
progressent dans ce domaine avec des 
écrans graphiques d’une ou plusieurs 
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SE GS SC 


CE PT CP Ce 


E, ORDINATEUR DE TABLE, 
E À SON REVERS... 


lignes. Mais le noir et blanc reste de 
rigueur, et l’on est encore loin de la 
finesse d’image que peut rendre un écran 
de télévision. 

La capacité de la mémoire doit, elle 
aussi, être prise en considération. Pour 
un ordinateur familial, 64 Ko n’ont rien 
d’exceptionnel aujourd’hui. Encore 
faut-il tenir compte de l’espace éventuel- 
lement occupé par un langage résidant 
en mémoire morte, et savoir que l’écran 
graphique réquisitionne une part non 
négligeable de la mémoire vive. Certains 
ordinateurs de poche commencent à 
dépasser les 16 Ko de mémoire vive dis- 
ponible, et ils bénéficient d’un énorme 
avantage : c’est que, dans leur cas, la 
mémoire vive est permanente. L’utilisa- 
teur ne doit pas recharger son pro- 
gramme (sauf s’il en change) chaque fois 
qu’il éteint sa machine. On trouve même 
des modules de mémoire vive interchan- 
geables qui conservent programmes et 
données même lorsqu'ils sont retirés de 
la machine. C’est un système de 
mémoire de masse assez coûteux, mais 
trêc actliCieniX. 


Malgré cela, c’est tout de même dans 
le domaine de la mémoire de masse que 
les ordinateurs de poche sont les moins 
bien lotis. Il n’existe toujours pas d’uni- 
tés de disquettes prévues pour ces machi- 
nes. Les techniques actuelles permet- 
traient pourtant d’adapter des lecteurs 
de micro-disquettes à ce type de maté- 
riel, mais aucun constructeur ne s’est 
encore lancé dans cette voie. Le meilleur 
système en service est sans doute le lec- 
teur de cartouches magnétiques de la 
HP-41, mais il est onéreux. Les autres 
ordinateurs de poche fonctionnent avec 
l’inévitable lecteur-enregistreur de cas- 
settes (ou de micro-cassettes), et ce 
système est lent. 


Du côté des ordinateurs à vocation 
familiale, on commence à voir sur cer- 
tains matériels des unités de disquettes 
13 cm (ou 9 cm, disquettes rigides de 
conception Sony). Maïs les prix font 
hésiter car ces périphériques sont aussi 
chers, sinon plus, que l’unité centrale... 
Et pourtant, dès que l’on a goûté un peu 
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aux avantages des disquettes, il est diffi- 
cile de retourner au lent déroulement des 
cassettes. La firme britannique Sinclair, 
avec son récent lecteur de cartouches 
magnétiques, pourrait bien offrir un 
compromis acceptable entre perfor- 
mance et prix. 


Les langages de programmation ont 
longtemps départagé les deux types 
d’ordinateurs que nous distingons. Les 
premières machines de poche, c’est-à- 
dire les calculatrices programmables, 
étaient toutes dotées d’un « langage- 
machine spécialisé », très commode 
pour traiter des séquences de calculs, 
mais manquant de souplesse quand il 
s'agissait de jongler avec les structures 
évoluées de la programmation (tests et 
boucles). C’est en 1980, avec le PC-1211 
de Sharp, qu’est apparu le premier Basic 
de poche. Le début d’une révolution. Un 
Basic restreint, mais bon calculateur, 
malgré sa lenteur. 


Depuis, la situation s’est remarquable- 
ment améliorée : on trouve des poquet- 
tes qui, sans être hors de prix, sont des 
ordinateurs incomparablement plus 
puissants que les monstres des années 
cinquante. Plusieurs d’entre eux présen- 
tent en outre un avantage incontestable 
par rapport à beaucoup de machines de 
table actuelles. Quand il s’agit d’éditer 
ou de corriger un programme, ils 
offrent des solutions d’une qualité 
exceptionnelle. Les ordinateurs de table 
s'efforcent de suivre, mais beaucoup 
sont encore tributaires de commandes 
d'édition archaïques. 

Jusqu’à ces derniers temps, si vous 
désiriez tâter sérieusement de l’assem- 
bleur ou d’un langage évolué autre que 
le Basic, il fallait recourir aux machines 


fixes. Plusieurs de ces machines dispo- 
sent de Pascal, de Forth (un langage qui 
semble avoir sérieusement le vent en 
poupe). On a même vu récemment un 
langage C sur le Dragon 64. Là aussi, les 
choses sont en train d’évoluer : on com- 
mence à voir apparaître sur certains 
poquettes d’autres langages que le Basic. 
C’est une excellente chose. Bien sûr, il 
est plus intéressant de maîtriser un lan- 
gage, un seul, que d’en connaître vague- 
ment plusieurs. Mais on ne doit pas 
négliger l’aspect didactique de la chose, 
et mieux vaut avoir l’embarras du choix 
que de n’avoir aucun choix du tout ! 


Ainsi donc, pour l’instant, avantages 
et inconvénients dans les deux camps. 
Les ordinateurs de poche sont doués 
pour les maths, leur mémoire vive est 
continue, et ils sont portatifs. Du côté 
de l’affichage, de la vitesse d'exécution, 
de la mémoire de masse, ce n’est pas ce 
qui se fait de mieux. Si les ordinateurs 
de table, en revanche, sont souvent 
plus musclés, ils sont inutilisables sans 
le secours de l’EDF. 


Des machines réunissant les avanta- 
ges de ces deux catégories sont-elles du 
domaine du rêve ? Pas vraiment. Des 
ordinateurs comme le TRS Modèle 100 
ou l’Epson PX-8 semblent ouvrir une 
voie médiane. Offrant des écrans multi- 
lignes, un clavier mécanique standard, 
une mémoire vive étendue, ils sont trop 
volumineux pour la poche, mais ils 
demeurent portatifs et autonomes. Le 
prix actuel de ces ordinateurs ne les 
destine pas à un marché grand public. 
Mais dans un ou deux ans qu’en sera-t- 
il ? Qui peut jurer que l’on ne trouvera 
pas des ordinateurs similaires et très 
bon marché ? 


Mis à part ces hybrides, les poquettes 
d’un côté et les ordinateurs de table de 
l’autre sont (comme par le passé) des 
outils complémentaires. 


Xavier de LA TULLAYE 
Jean-Charles LEMASSON 
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L'vofre progression en informatique 
est liée à celle de la production 
britannique Sinclair, vous avex débuté avec un 
ZX 80, puis vous êtes passé au ZX 81. 
Peut-être ne connaïssez-vous pas encore, 
ou depuis peu, son successeur, le ZX 

Spectrum ? Il y a beaucoup à dire 


sur cet ordinateur. 


La mémoire morte du Spectrum 

est de 16 Ko et ce diable a pris 
des couleurs (8 en l’occurrence). Son 
processeur a adopté un autre circuit 
pour assurer la gestion de l’affichage 
(plus de modes SLOW ni FAST) et son 
cœur (l'horloge interne) bat un peu 
plus vite que celui du ZX 81. 


Si le Spectrum paraît bien différent 
du petit frère qui a fait la réputation de 
la famille, il a néanmoins reçu la même 
éducation et le fond reste le même : 
même éditeur, même calculateur en vir- 
gule flottante, etc. En examinant la 
mémoire morte du Spectrum, on 
retrouve l’essentiel des routines. A tel 
point que les concepteurs du logiciel de 
base ont laissé une partie d’une routine 
du ZX 81 qui n’est pas utilisée par le 
Spectrum. 
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Toutes ces ressemblances nous con- 
duiront à faire référence au ZX 81, et 
ce pour mieux faire ressortir les diffé- 
rences. 


Depuis l’origine, Sinclair s’est nette- 
ment démarqué des autres Basics. Sans 
reprendre, une à une, les instructions 
de ce langage, nous allons en signaler 
certaines dont le comportement parti- 
culier peut avoir un intérêt en program- 
mation. Commençons par FOR-NEXT. 


Le ZX Spectrum 
dit bonjour 
du: EIST 


La variable servant de compteur peut 
prendre n’importe quelle valeur, entière 
ou non. Il en est de même pour le pas 
d’incrément qui peut être négatif ou 
positif. Si la valeur du pas n’est pas 
précisée, elle est implicitement de +1. 
Mais que se passe-t-il si l’on ne peut 
obtenir la valeur finale du compteur à 
partir de la valeur initiale au moyen du 
pas implicitement ou explicitement pré- 
cisé et à quoi va conduire l’exécution 
de ce programme ? 

10 FOR N=100 TO 1. 

20 PRINT N 

30 LET X=1234 

40 LET A$=‘JE SUIS PASSE PAR 
ICI”? 

50 BEEP 10,10 

60 NEXT N 


Surprise ! Il s'est exécuté à une vitesse 
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exceptionnellement rapide, sans rien 
afficher, sans se faire entendre. Il a 
cependant terminé son exécution par le 
message bien connu chez nous : OK ! 


Si maintenant vous demandez l’affi- 
chage de la variable numérique X ou de 
la variable alphanumérique A$, il 
répond abruptement « variable non 
trouvée ». 


Comment expliquer cela ? Le pas 
était implicitement de + 1 ; il était donc 
impossible de partir de la valeur initiale 
100 pour aller à 1 en ajoutant 1 à cha- 
que boucle. L’ensemble des lignes de la 
boucle a donc été totalement ignoré. 
En ajoutant une ligne 70 PRINT N, 
nous constaterons que la valeur du 
compteur de boucle est restée telle 
qu’au début du programme. La possi- 
bilité d’ignorer toutes les lignes d’une 
boucle est une excellente chose, surtout 
lorsque la valeur initiale, la valeur 
finale, ou le pas, sont des valeurs calcu- 
lées au préalable par le programme et 
se traduisent donc sous forme de varia- 
bles, par exemple FOR N=A TO B 
STEP C. 

Tout comme avec la boucle FOR... 
NEXT, il est possible, avec IF... 
THEN, de sauter tout un paragraphe 
lorsqu'une condition n’est pas remplie. 
Ceci tient à la façon dont fonctionne le 
THEN et à la possibilité d'écrire plu- 
sieurs instructions dans une même ligne 
(net progrès par rapport au ZX 81). Le 
programme : 

10 INPUT X 

20 IF X=1 THEN LET A=1i : LET 
B=2 : LET C=3 : GOTO 40 

30 LET A=100 : LET B=99 : LET 
C=98 

40 PRINT A, B, C 

permet de ne pas effectuer le test trois 

fois pour affecter la valeur désirée aux 

variables A, B et C en fonction de la 

valeur de X. Ainsi, quand X=1,ona 

A=1,B=2, C=3. Dans les autres cas, 

A= 100, B=99 et C=98. 

Nouvelles sur le Spectrum par rap- 
port au ZX 81, les instructions IN et 
OUT offrent la possibilité d’une com- 
munication bidirectionnelle entre 
l'ordinateur et son environnement. 
Avec un générateur de sons, une poi- 
gnée de jeu, une imprimante, ou tout 
autre périphérique, ces instructions 
d’entrée/sortie permettent de commu- 
niquer directement en Basic, sans avoir 
à recourir au langage-machine. 


La petite imprimante ZX Printer de 
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Sinclair est reliée au port d’entrée/sor- 
tie 251. Le moteur de l’imprimante est 
mis en marche quand on envoie sur ce 
port la valeur 0 ; il est arrêté avec la 
valeur 4. OUT 251,0 fait défiler le 
papier. OUT 251,4 arrête l’imprimante. 
Les lignes : 
10 LPRINT ‘‘IMPRESSION’’ 
20 OUT 251,0 : PAUSE 150 : OUT 
251,4 
font avancer le papier jusqu’à ce que le 
message « impression » soit visible. 
Une valeur différente pour la durée de 
la PAUSE permet de moduler la lon- 
gueur de papier à dérouler. 


Avant de passer à d’autres charmes 
de ce petit monstre noir réhaussé d’un 
arc-en-ciel, il faut citer la puissance de 
la fonction VAL. Après avoir construit 
de toutes pièces une expression (cor- 
recte syntaxiquement en langage Sin- 
clair) dans une chaîne de caractères, 
vous pouvez en demander l’évaluation. 


Prenons un exemple simple pour 
illustrer cette puissance : 


10 LET X=1234 : LET Y=5678 
LET Z= -90 
20 LET A$="X + 45 x Y —” + 


STR$ PI + ‘‘/7Z°” 
30 PRINT AS ; ‘=’? ; VAL A$ 


Une fois que vous aurez bien mafî- 
trisé cette fonction, vous en apprécierez 
certainement l’utilité en programma- 
tion. 


Contrairement à ce qui se produit sur 
le ZX 81, l’espace de mémoire où sont 
stockées les informations affichées à 
l’écran du Spectrum n’est pas mouvant 
ni dépendant de la longueur du pro- 
gramme. Cet espace va des adresses 
mémoire 16384 à 23295 et comporte 


quatre zones dont deux pour les 
fichiers d’affichage : 

e le fichier d’affichage des 22 lignes (ou 
176 minilignes) réservées à l’utilisa- 
teur ; 

e le fichier d’affichage des 2 lignes de 
compte rendu (ou 16 minilignes) nor- 
malement non accessibles. 


Ces deux fichiers occupent 6144 
octets, chaque octet servant à définir 
huit points d’encre (ou pixels) sur 
l’écran. Le point est le plus petit élé- 
ment que l’on puisse afficher (tel qu’on 
le réalise en faisant PLOT X,Y). Il y a 
donc 6144 X 8 pixels, soit au total 
49152 pixels. 


Correspondant à ces deux fichiers, 
deux autres espaces de mémoire conser- 


vent les attributs de couleur des points 
affichés à l’écran. Cependant, il n’y a 
que 768 octets pour définir la couleur 
des 49152 pixels. Un octet de la zone 
des attributs définit la couleur de 
l’encre, du papier et le caractère « fla- 
shant » ou « brighté » d’une cellule 
regroupant 64 pixels. 


Pour des raisons de simplification 
matérielle, les fichiers d’affichage des 
pixels d’encre n’ont pas une structure 
linéaire. Vous l’avez certainement 


remarqué lorsque vous avez chargé à 
partir d’une bande une copie d’écran. 


Cet écran est partagé en trois parties, 
chacune d’elles étant elle-même parta- 
gée en huit rangées de huit minilignes. 


Si l’on veut remettre en ordre un 
fichier d’affichage, on remarque que 
les adresses ne progressent pas de façon 
linéaire. Ce programme vous le mon- 
trera : 

10 LET A=175 

20 FOR X=16384 TO 22527 STEP 
2048 

30 FOR Y=X TO X+255 STEP 32 

40 FOR Z=Y TO Y +2047 STEP 256 

50 PRINT#0 ; AT 1,0; ‘LIGNE 
NO:’”’;‘#” AND SGN A=-1l; 

ABS À, ‘‘ADRESSE:”’ ; Z 
60 FOR T=0 TO 31 
70 POKE Z+T, 255 
80 NEXT T 
90 PAUSE 0 
100 LET A=A-I1 
110 NEXT Z 
120 NEXT Y 
130 NEXT X 
140 PAUSE 0 


A l’exécution, le programme noircit 
une à une les 192 minilignes de l’écran 
en donnant le numéro de la miniligne 
concernée et l’adresse du premier 
groupe de huit points (1 octet) de cette 
miniligne. Les 16 minilignes du bas 
sont notées avec #, soit #1 à #16. 


La ligne 70, en mettant à 255 chaque 
octet, noircit donc huit points en une 
fois. La variable T réitère le processus 
pour les 32 colonnes de 8 points. 


La variable Z s’occupe d’une rangée 
de huit minilignes, la variable Y de huit 
rangées et la variable X des trois parties 
de l’écran. 


Je vous propose une formule permet- 
tant de retrouver l’adresse dans le 
fichier d’affichage d’un point affiché à 
l’écran. Si ce point a pour abscisse X et 
pour ordonnée Y (0 à 255 pour X, 0 à 
175 pour Y), voici ce que cela donne : 
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INSPECTONS LE SPECTRUM 


ADRESSE (X,Y) = 18848 — 256 x Y 
+ 2016 x INT (Y/8) + 1792 x INT 
(GI-INT (Y/8))/8) + INT (X/8). 


Voyez ce qui se passe à l’exécution 
du programme suivant : 
10 FOR N=27 TO 87 STEP 20 
20 CIRCLE 127, 87, N 
30 NEXT N 
40 FOR Y =0 TO 175 
50 LET Z = 18848 — 256 x Y + 2016 x 
INT (Y/8) + 1792 x INT ((21 — 
INT (Y/8))/8) 
60 FOR X=0 TO 31 
70 POKE Z + X, 255 — PEEK (Z+X) 
80 NEXT X 
90 NEXT Y 


La ligne 70 intervertit la couleur des 
points entre celle du papier et celle de 
l'encre. 


La formule permettant de retrouver 
les attributs de couleur d’une ligne et 
d’une colonne est plus simple car le 
stockage dans la zone des attributs se 
fait ligne par ligne. La voici : ATTR 
(ligne, colonne) = 22528 + 32 * ligne 
+ colonne. Le programme ci-dessous 
fait «flasher » une cellule qui ne 
« flashe » pas et inversement. Il peut 


Des cercles 
aussi ronds 
que possible 


utiliser la formule ou la fonction 
ATTR. 

10 INPUT L,C 

20 LET A=22528 + 32 x L+C 

30 POKE A, PEEK A +128 

40 GOTO 10 


ou bien 


10 INPUT L,C 

20 LET A=22528 + 32 x L+C 
30 POKE A, ATTR (L,C) + 128 
40 GOTO 10 


L'ordinateur se réserve une partie de 
la mémoire vive comme bloc-notes. Il 
mémorise ainsi certaines caractéristi- 
ques du système : interpréteur Basic, 
programme. 


Cette zone mémoire s’étend des 
adresses 23552 à 23733. Nous allons 
reprendre ici certaines de ces variables 
et donner quelques exemples d’utilisa- 
tion pour montrer qu’elles peuvent 
être utiles. 


La variable système CHARS, tout 
d’abord, est un pointeur désignant 


l’emplacement de la matrice des carac- 
tères. Elle pointe vers le début de la 
zone de mémoire morte où est stockée 
la matrice des caractères dont le code 
va de 32 (pour l’espace) à 127 (pour le 
signe du copyright). Cette variable est 
codée sur deux octets. On obtient 
l’adresse qu’elle détient en faisant : 
PRINT PEEK (CHARS) + 256 * 
PEEK (CHARS + 1) soit PRINT 
PEEK (23606) + 256 * PEEK (23607) 


Le résultat est normalement 15360. 
Or, il est dit dans le manuel de pro- 
grammation qu’il faut ajouter 256 
pour obtenir l’adresse du jeu de carac- 
tères. L'adresse en mémoire morte du 
début de la matrice des caractères est 
donc 15616. Chaque caractère est 
représenté sur huit octets. Ainsi, dans 
le cas de l’espace, les huit octets sont 
stockés de l’adresse 15616 à 15623. 


Pour illustrer ceci, le programme ci- 
dessous reprend un à un les octets de 
la matrice d’un caractère dont vous 
introduisez le code et les « POKE » 
sur l’écran (écran dont nous venons de 
préciser la structure particulière). 

10 INPUT ‘CODE DU CARAC- 
TERE:” ; C 

20 FOR N=0 TO 7 : POKE 16384 + 
N * 256, PEEK (15616 + (C— 32) 
* 8 + N) : NEXT N 

30 GOTO 10 


Maintenant, amusons-nous un peu 
avec cette Variable système en exécu- 
tant ce programme : 

10 CLEAR 31831 
20 FOR N=0 TO 263 : POKE 31832 
+ N, PEEK(15616+N) : NEXT N 
30 FOR N=0 TO 207 : POKE 3209% 
+ N, PEEK(16136 + N) : NEXT N 
40 FOR N=0 TO 47 : POKE 32304 
+ N, PEEK(16088:+ N) : NEXT N 
50 FOR N=0 TO 207 : POKE 32352 
+ N, PEEK(15880 + N) : NEXT N 
60 FOR N=0 TO 39 : POKE 32560 
+ N, PEEK(16344 + N) : NEXT N 
70 POKE 23606,88 : POKE 23607,123 
80 LIST 


L’exécution prend un certain temps 
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La liste 
du programme 
apres sa propre 

exécution 


çar il y a recopie des 768 octets, cor- 
] respondant aux 96 caractères, dans un 
espace mémoire préalablement réservé 
(par la ligne 10) juste en dessous des 
caractères graphiques (sur un Spec- 
trum 16 Ko de mémoire vive). Cepen- 
dant, on a inversé les minuscules avec 
les majuscules. La ligne 70 modifie la 
| variable système pour qu’elle pointe 
alors sur le nouveau jeu de caractères. 
Conclusion : vous pouvez, grâce à 
cette méthode, redéfinir l’ensemble des 
| caractères, et non pas seulement les 
caractères graphiques. 


maintenant d’autres 


Examinons 
variables système. Pour connaître la 
longueur d’un programme en octets, il 
suffit de faire en mode commande : 
PRINT PEEK 23627 - PEEK 23635 


+ 256 + (PEEK 23628 -— PEEK 
23636). On utilise ici les variables 
système PROG et VARS qui pointent 
respectivement vers l’adresse de début 
de la zone programme et vers l’adresse 
de début de la zone des variables. On 
voit sur la carte mémoire (page 189 du 
manuel de programmation Sinclair) 
que le programme se termine juste 
avant le début de la zone des variables. 
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De même, en utilisant les variables 
système VARS et E-LINE, il est possi- 
ble de connaître la taille de l’espace 
mémoire occupé par les variables en 
faisant : PRINT PEEK 23641 — 
PEEK 23627 + 256 «x (PEEK 23642 — 
PEEK 23628) — 1. Nous avons retran- 
ché 1 car la zone des variables se ter- 
mine par un marqueur de fin (code 
128). 


Pour connaître la valeur que vous 
avez affectée à RAMTOP par l’ins- 
truction CLEAR (comme dans le pro- 
gramme précédent), vous utiliserez la 
variable système RAMTOP. PRINT 
PEEK 23730 + 256 * PEEK 23731. 
RAMTOP ne représente pas le dernier 
octet de la mémoire vive mais le der- 
nier octet que le système Basic peut 
utiliser. 


Tous les octets au--delà de cette 


H 
G 


3 -j 
“0 2-N 3470 


L'RET 


31832 + 

32096+ 
32304 +N 

32352+ 

SESSO +N 


adresse peuvent être utilisés pour y 
loger soit du langage-machine, soit 
une nouvelle matrice de caractères, 
soit tout autre chose, mais ceci sans 
interférer avec l'exécution normale 
du Basic. Par contre, la variable 
P-RAMT contient l’adresse du der- 
nier octet existant réellement sur votre 
Spectrum. Vous pouvez vérifier 
que PRINT PEEK 23730 + 256 x 
PEEK 23731 affichera 32767 pour un 
Spectrum 16 Ko et 65535 pour un 
Spectrum 48 Ko. 


Enfin, l’adresse des caractères gra- 
phiques définis par l'utilisateur est 
dans la variable système UDG (User 
Defined Graphics). Le stockage de la 
matrice de ces caractères est fait de la 
même manière que pour les caractères 
habituels. Cette adresse peut être obte- 
nue soit par PRINT PEEK 23675 + 
256 x PEEK 23676, soit par PRINT 
USR‘‘a”. 

Parlons pour finir, et brièvement car 
nous aurons l’occasion d’y revenir, de 
la possibilité d’écrire en langage- 
machine. 

La possibilité de redéfinir la parti- 
tion de la mémoire, de charger des 
blocs d’octets à partir d’une cassette 
ou d’un microdrive, sont des avanta- 
ges certains par rapport au bon vieux 
ZX 81. Le processeur, n’ayant plus à 
gérer l’affichage à l’écran, nous resti- 
tue quelques-uns de ses registres dont 
les registres indexés. 


Mais ce sera pour une prochaine 
fois. Et, pour l'instant, continuez 
l'exploration de votre Spectrum. On 
n’est pas prêt d’en avoir fait le tour. 


Benoit THONN ART 
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bons pour le Service 


ATARI, CANON, CASIO, COMMO- 
DORE, HEWLETT PACKARD, 


ORIC, SHARP, SINCLAIR, 
THOMPSON. 
“= 300 prix 


Charter: Duriez ? 


ATARI 
600 XL Péritel ......... 2500 
800 XL Péritel . ..... 3500 
Magnéto ...,,.... .. 890 
Lecteur de disquette .. 3690 
Imprimante courrier . 3490 
Traceur 4 couleurs. ..... 2590 
Manette de jeu ...... 120 


LOGICIEL 


Defender {cart} ....... 382 
Qlx (cart) . 382 
Galaxian (cart) ........ 382 
Dig dug (cart) .. -.. 382 
Graph il (disq) .::!:!! 154 
Attaque (disa) Mae : 98 
Culture physique (disa) . . 98 
Générateur sonores (disa) 295 
Limonade {disq) ....... 98 
Atlas {disa) . . 154 
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Budget familial (disq) ... 154 
Editeur de son {disq) .... 295 
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Contrôle nucléaire (K7) .. 154 
Black jack (K7) . 98 


Initiation à la Progr. (K7] 258 
Limonade [K7) ....... 

Générat. de caract. [K7) . 295 
Ministre de l'énergie (K7) 205 


Jeu du royaume {K7) .. 205 
Graph {K7)........,.. 205 
Cassette Graph....... 155 
Cassette Stat ......... 285 
Disquette File ........ 419 
Livre Manuel Library .... 214 
CANON 
X07 mémoire BK....... 2170 
Traceur 4 coul. X710.... 1850 
X07 + X710... - 3900 
Extension 8K ......... 750 


Carte mém.4K XM100 .. 412 
Carte mémoire 8K XM101 850 


Cordon magnéto....... 65 
Coupleur optique ...... 470 
Inter. RS232 + cordon . 725 
Cordons imp. parallèle .. 295 
DAC: see ms 82 
Carte Fichiers ......... 530 
Carte Graphique ...... 530 
Cassette Stat ......... 298 
Cassette Graph........ 298 
Cassette Text ....... 298 
CASIO 
PB700:.:... _ 1660 
Traceur 4 coul. FA10.. 2280 
PB700 + FA1O ....... 3900 
Extension 4KO R4.. . 427 
Magnéto intégré CM1... 850 
Interface FA4 ..... vis 1865 
Ex 7O2P use 1095 
Interface magnéto FA2 .. 280 
Imprimante FP1O ...... 610 
FR 8O7Puiusssssees. 990 
PBA00: eme 675 


Interface magnéto FA3 .. 285 
Imprimante FP 12 
FP200..... 

Extension 8K ... 
Cordon magnéto . 


Traceur 4 coul. ..... .. 2280 
Lecteur de disquettes .... 4430 
Clavier numérique. ..... 512 
Secteur. ............. 225 


Cordon impri. parallèle .. 390 
Extension CETL (ROM) .. 809 


COMMODORE 
Commodore 64 Pal ..... 2790 
Commodore 64 Secam .. 3650 
Commodore 64 Péritel... 3750 


Commodore VIC 20 Pal.. 1550 
Commodore VC 20 Secam 2100 
Extension mémoire 3K... 295 
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Programmer’s aid .... 350 
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VICFonhiis ein 800 
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DRAGON 64 Prix : 3600 F'T.T.C. adaptateur PERITEL LOGICIELS D 64 Kde 750 à 1250 F T.T.C 


Microprocesseur 6809 E 059 Système d'exploitation multitaches, multifonctions 
Mémoire 64 K RAM 16 K ROM (41 K avec 4 pages graphiques) Pascal Langage P implemanté complet 

Ports RS 232. 2 manettes, 1 cassette, 1 parallèle centronic e Langage compile linkeble 

Sorties Connecteur 40 lignes 6809 - PAL ou Dynacale Tableur professionnel 


PeriteVUHF (son + vidéo) - 1 moniteur composite Stylograph Traitement de textes + dictionnaire + liaison fichiers 


Clavier 53 touches machine à écrire avec autorépétition RMS 
Affichage Noir sur vert 16 x 32 - 24 x 5] sous OS 9 Basic 09 
curseur bleu en mode 48 K 
Graphique 16 x 32 9 couleurs - 32 x 64 9 couleurs : 
128 x 96 2 sets 2 couleurs - 128 x 96 2 sets 4 couleurs 
256 x 192 2 sets 2 couleurs 
Son Par télé ou amplificateur EXIGEZ LA CARTE DE GARANTIE DU REVENDEUR 
Basic Microsoft couleur etendu 


Base de donnée 
Basic structuré complet modulable 


Flex Système d'exploitation le plus répandu 
dans le monde 


BON DE COMMANDE ET DEMANDE DE DOCUMENTATION NOM 


Je désire recevoir : Une documentation O 
Dragon 32 PERITEL UHF OC 
Dragon 64 PAL/Moniteur PERITEL (650 F) L; Fe 
Lecteur de disquette [ Code postal |_:_1. 


Adresse 


ci-joint : Cheque bancaire [ J : 
Contre remboursement ( e Cetrer 
Frais à ma charge 15, rue de Saint-Quentin, 75010 PARIS 


LIST À TESTÉ 


N version de base, le 
nouvel ordinateur de 


Thomson est doté de 32 Ko de mémoire vive pour 
l'utilisateur et de 16 Ko supplémentaires pour la 
gestion de l'écran. C'est bien. 

Restent 16 Ko de mémoire morte. Et 

c'est là que se trouve ce qui nous intéresse le plus : 
le Basic, conçu par Microsoft. Bravo ! 

C'est un très bon Basic pour une machine de cette 
catègorte. Le MOS coûte 2 390 FF fr. 


La petite famille des ordinateurs 

familiaux français vient de 
s’agrandir avec l’arrivée du dernier 
Thomson, le MOS. Dans sa coque plas- 
tique de couleur noire, le MOS a l’air 
sobre, sérieux, peut-être même un peu 
austère. Le clavier AZERTY (avec 
minuscules accentuées) sacrifie à la 
mode des touches en gomme, et cela 
très probablement pour des raisons 
d'économie. A l'usage toutefois, la 
frappe se révèle presque aussi rapide 
que sur un clavier mécanique ; un bip 
sonore, discret, confirme chaque appui. 


Toutes les touches sont grises, sauf 
SHIFT (jaune) et BASIC (noire). En 
maintenant cette dernière enfoncée pen- 
dant la frappe d’une autre touche, on 
affiche directement un mot clé du 
Basic. La plupart des touches compor- 
tent donc au moins trois indications : 
la fonction normale, inscrite en blanc, 
la fonction « shiftée », en jaune, et la 
fonction Basic, en noir. Cinq des tou- 
ches de la rangée supérieure ont même 
une fonction supplémentaire. Grâce à 
la touche ACC, elles donnent égale- 
ment accès aux principaux caractères 
accentués du français (à, ü, é, è) ainsi 
qu’au c cédille (ç). 

Six connexions ont été prévues. Sur 
le flanc droit de l’appareil, deux prises 
DIN permettent de brancher le crayon 
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optique et le magnétophone à cassette 
(périphériques qui sont tous les deux en 
option). A l'arrière, on trouve une 
fiche Jack pour l’alimentation électri- 
que de l’ordinateur, un cordon Péritel 
destiné au téléviseur et un connecteur 
«bus » pour de futures extensions tel- 
les que manettes de jeux ou 


disquettes. Une trappe enfin, sur le 
haut du MOS, permet d’enficher une 
cartouche de 4 Ko de mémoire morte. 
Thomson prévoit donc de diffuser des 
programmes sur cassettes, mais aussi en 
cartouches. 


L’écran contient 25 lignes de 40 
caractères. Si l’on programme, une 
ligne de Basic peut s’étendre sur 255 
caractères et par conséquent occuper 
jusqu’à 7 lignes d’écran. L'éditeur, 
autrement dit l’ensemble des moyens 
dont on dispose pour corriger un pro- 
gramme, est très bien conçu: on 
déplace le curseur à sa guise sur la page 
affichée et l’on utilise les touches EFF 
(effacement) et INS (insertion). Un 
petit regret toutefois : cette dernière 
commande ne fait pas vraiment passer 
en mode d'insertion. Il faut donc 
appuyer autant de fois sur INS que l’on 
prévoit de caractères à rajouter. 


On dispose encore de CNT-X qui 
efface tout ce qui se trouve à la droite 
du curseur jusqu’à la fin de la ligne de 
Basic et de DELETE x-—}y qui efface 
toutes les lignes comprises entre la ligne 
n°x et la ligne n°y. Comme pour 
l’ordre LIST, toutes les combinaisons 
sont possibles : 

e DELETE x (x variant de O à 63999) 
détruit la ligne n° x ; 

+ DELETE x— détruit toutes les lignes 
depuis x jusqu’à la fin du programme ; 
e DELETE —x détruit le début du 
programme jusqu’à la ligne x ; 

e DELETE-—., enfin, efface tout. 


Si les programmeurs peuvent regret- 
ter l’absence d’une commande renumé- 
rotant automatiquement les lignes d’un 
programme, ils apprécieront les classi- 
ques TRON et TROFF (exécution pas à 
pas). 


Le Basic proprement dit occupe 16 
Ko de mémoire morte et gère les 48 Ko 
de mémoire vive qui sont découpés en 
deux tranches : 32 Ko directement dis- 
ponibles pour l’utilisateur et 16 Ko de 
mémoire graphique. 


Dès la mise sous tension, le copyright 
de Microsoft nous indique que le Basic 
n’a pas été créé en France. Avec 
PRINT FRE (0), on apprend que 31008 
octets sont à la disposition du program- 
meur, et FRE (X$) précise que 300 
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adresse | taille rôle 
0000-1FFF | 8 K/graphique couleur (en fait, 2 pages de 8 K sont 
à ce même emplacement, soit 16 K de mémoire 
vive graphique) 
2000-9FFF | 32 K|mémoire vive disponible pour le programme 


Basic et les données 


st) 


Occupation A000-A7FF| 2 K|prévu pour extensions (disquettes, 
mémoire A800-AFFF 
du MO5 


B000-BFFF 


4 K|prévu pour cartouches mémoire morte 


CO00-FFFF 


16 Kimémoire morte moniteur et Basic 


Le MOS de base comporte donc 16 K mémoire morte et 48 K 
mémoire vive répartis en 32 K réels et 16 K graphiques que l’on 
peut exploiter grâce à la fonction POINT. 


octets ont été d’office réservés pour les 
chaînes de caractères. 


L'ordre CLEAR Xx,},z permet de 
jouer avec toute cette mémoire vive : il 
réserve x octets pour les chaînes alpha- 
numériques et 8 fois z octets pour la 
définition de z caractères graphiques 
(nous reviendrons sur ce point). Par 
ailleurs, le même ordre CLEAR con- 
traint le Basic à n’utiliser que des 
mémoires dont l’adresse est inférieure 
ou égale à y, ce qui est très pratique si 
l’on veut stocker des programmes écrits 
en langage-machine. Quand on branche 
le MOS, on a x = 300, y = &H9FFF 
et z = 0. Quant à l’ordre CLEAR uti- 
lisé sans argument, il a bien le rôle 
attendu d’effacer toutes les variables. 


Le nouveau Thomson distingue trois 
types de variables. Tout d’abord, les 
variables entières (valeur comprise 
entre —32768 et 32767) qui sont stoc- 
kées sur deux octets. Les variables en 
simple précision sont, elles, stockées 


sur quatre octets, trois pour la mantisse 
(soit sept chiffres significatifs dont 
seuls les six premiers sont affichés) et 
un pour l’exposant. Ce deuxième type 
de variables peut donc traiter des 
valeurs comprises entre 2127 et 2—128, 
ou, ce qui revient au même, entre 1,701 
x 1038 et 2,938 x 1022. 


Restent, bien entendu, les variables 
alphanumériques. Le tout forme un 
ensemble cohérent. Certains utilisateurs 
regretteront cependant l’absence de 
véritables variables en double préci- 
sion : les six chiffres de mantisse seront 
insuffisants pour certaines applications 
scientifiques. On y remédiera en pro- 
grammant soi-même les routines adé- 
quates… 


Le nom des variables, en revanche, 
nous réserve une bonne surprise. Au 
lieu des deux seuls caractères auxquels 
nous ont habitués beaucoup de Basics, 
nous pouvons avoir ici des variables 
dont les noms ont quinze caractères de 


Ordres sur 1 octet 


Liste 
des mots clefs 
Basic 


du MO5 


long... Mais, comme le rappelle juste- 
ment le manuel, gare aux mots réservés 
du Basic ! C’est ainsi que la variable 
FORMIDABLE est interdite, car elle 
contient l’instruction FOR, et le MOS y 
perd son Basic. 


Le suffixe qui termine le nom d’une 
variable en indique le type : un % pour 
les entières, un ! pour les variables en 
simple précision et un $ pour les chaî- 
nes de caractères. En fait, le ! n’est 
guère employé puisque les variables 
numériques sont toutes en simple préci- 
sion, sauf si le programmeur en a 
décidé autrement. Mais, comme avec 
presque tous les Basics de Microsoft, 
on peut forcer le type des variables 
commençant par la même lettre. Ainsi, 
avec DEFINT I-K, on décide que tou- 
tes les variables commençant par les 
lettres 1, J et K seront des variables 
entières. Le suffixe % devient, dans 
leur cas, inutile. Les instructions cor- 
respondantes sont DEFSNG et 


DEFSTR pour les variables en simple 
précision et les variables alphanuméri- 
ques. 


Autre surprise agréable : les tableaux 
n’ont aucune limitation, sauf, bien 
entendu, celles qui tiennent à la 
mémoire vive disponible. A titre indica- 
tif, nous avons pu créer un tableau 
(absurde, mais c’était pour les besoins 


Fonctions sur 2 octets 
(le 1°" octet étant toujours FF) 


POINT 
SCREEN 


Ces tableaux ont 


été obtenus grâce à 
+ un programme sim- 


pliste 10 REM COU- 


COU, puis par des 


TER POKE et LIST suc- 
[RETURNIDELETE | TO cessifs. e 

SRE à Pour le 1° tableau, 

SUB _| AND par POKE & H25A8,i 

CLS FN OR Pour le 2° tableau, 

par POKE & 

E] STOP POnSotE|CLEAR | SPCC | XOR | H25A8.255 : POKE 
PSET USING | EQV | & H25A9;i 
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LIST À TESTÉ 


LÉ BASIC DU THOMSON MO5 


de l’exemple) ne comportant pas moins 
de 124 dimensions : DIM A (0,0,0,0, 
.…, 0,0) ! La 125° dimension demeure 
inaccessible, une ligne de Basic 
n’admettant que 255 caractères. 


Une petite remarque amusante au 
passage : en recherchant quel était le 
plus grand tableau à une dimension 
exploitable sur le MOS, je suis tombé 
sur une fantaisie de l’ordinateur. Avec 
DIM A (50000), il répond ERROR 6 
(«nombre trop grand dans un 
calcul »). Avec DIM A (10000), il pré- 
fère ERROR 9 (« indice en dehors des 
limites »). Puis avec DIM A (8000), 
cela devient ERROR 7 (« dépassement 
de capacité en mémoire centrale »). 
Cocasse. Il suffit de le savoir. 


L’instruction DIM est facultative 
pour les petits tableaux d’une à trois 
dimensions, chacune des dimensions 
pouvant comporter un maximum de dix 
éléments. Ainsi, quand le programme 
Basic rencontre un A (2,5,7) sans qu’il 
y ait eu auparavant dimensionnement 
de À, aucune erreur ne survient. En 
fait, un DIM A (10,10,10) implicite est 
automatiquement réalisé. On peut donc 
se permettre quelques étourderies. 


On ne s’étonnera pas de retrouver 
sur le MOS les instructions classiques 
des Basics Microsoft, IF-THEN-ELSE, 
ON-GOTO, ON-GOSUB, READ-DA- 
TA-RESTORE, et une gestion com- 
plète des erreurs, avec ON ERROR 
GOTO, ERR, ERL, et RESUME. 
Moins banal: en ce qui concerne 
GOSUB, le nombre d’imbrications 
n’est pas limité, sauf toujours par la 
mémoire vive. Sachant que chaque 
GOSUB consomme sept octets, il est 
possible, en théorie du moins, de pro- 
grammer plus de 4000 imbrications ! 


A côté des opérations courantes (+, 
—, *, / et élévation à une puissance), 
on trouve également @ et MOD qui 
permettent respectivement d’obtenir le 
quotient et le reste des divisions entiè- 
res. La ligne I — 100: J = 12: 
PRINT I @ J ; I MOD J affiche 8 et 4. 
On retrouve par ailleurs les autres fonc- 
tions mathématiques usuelles (trigono- 
métrie, logarithme, exponentielle.….). 
Le RND produit des nombres aléatoires 
et, en plus de l’instruction INT (A), le 
MOS connaît CINT (A) et FIX (A). 
Ces trois dernières instructions retour- 
nent, dans l’ordre, la partie entière de 
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A, l’entier le plus proche de A, et A 
tronqué de sa partie décimale. Par ail- 
leurs, en plus des opérations logiques 
AND, OR, NOT et XOR, on trouve 
IMP et EQV : implication et équiva- 
lence. Les programmeurs ne s’en plain- 
dront certainement pas. 


Les opérations sur les chaînes de 
caractères s’effectuent au moyen des 
classiques LEFT$, MID$, RIGHTS et 
LEN, ASC, CHR$, VAL et STRS. 
Pour les entrées à partir du clavier, 
l'utilisateur dispose des instructions 
INPUT, LINEINPUT et INKEYS. 
Mais INPUT$ (D attend l’appui sur 1 
touches sans contrôle à l’écran. 


Le MOS est également musicien. 
Avec l’ordre PLAY, on peut tout 
d’abord jouer une mélodie simple en 
faisant, par exemple, PLAY 
«DOREMI ».. Chaque note est codée 
sur deux lettres, le sol se retrouvant 
donc tronqué en « SO ». Quant aux 
altérations, on les obtient tout simple- 
ment en faisant suivre la note à jouer 
du signe du dièse (#) ou de la lettre b 
(pour bémol). Le P représente, selon 
les cas, une pause, un silence, un sou- 
pir. On peut également faire varier 
quatre autres paramètres : 
< durée d’une note (entre 1 et 96) : 

e octave (cinq octaves sont disponibles, 
une flûte à bec n’en offre pas autant) ; 
e tempo du morceau ; 

e attaque (256 possibilités). 

Que l’on ne s’y trompe pas : cela ne 
fait pas du MOS un synthétiseur. Mais 
il reste que grâce à cet ordre PLAY, 
facile à mettre en œuvre et disponible 
en version de base, il est à lui seul un 
bel instrument de musique pour débu- 
tants. 


ViDÉO- CLiP QUE 
J'Ai CRÉÉ SUR 


T'AS VW LE 


Du côté du langage-machine, tout est 
permis grâce aux PEEK, POKE, 
EXEC, VARPTR, SAVEM et 


LOADM. Ces deux dernières comman- 
des permettant la sauvegarde et la lec- 
ture sur cassettes de programmes LM. 


Autre atout du MOS : les graphis- 
mes. La machine travaille avec 16 cou- 
leurs et sur 320 x 200 points. Sauf 
erreur de ma part, cela nous conduit à 
un total de 64000 points. Il était exclu 
que la couleur de chaque point soit 
définie individuellement. Je vous laisse 
le soin de calculer la mémoire vive qu’il 
aurait fallu pour que la chose soit pos- 
sible (n’oubliez pas que la palette com- 
porte 16 couleurs...). 


En fait, sur le MOS, ces points sont 
regroupés par lignes de huit. La cou- 
leur de chacune de ces minilignes peut 
être celle du fond ou celle de l'écriture. 
Comptez deux octets pour définir cha- 
que groupe de huit points... Et voilà 
comment 16 Ko de mémoire vive sont 
occupés dans le MOS. Cette mémoire 
d'écran est, répétons-le, entièrement 
indépendante des 32 Ko réservés à l’uti- 
lisateur. | 

La configuration générale de l’écran 
est déterminée au moyen de SCREEN 
X,},z qui spécifie, dans l’ordre, la cou- 
leur de l’écriture, celle du fond et celle 
du pourtour de l’écran. 


Lorsque l'interface d’incrustation du 
MOS sera disponible, l’ordre SCREEN 
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permettra aussi de définir, sur l’écran 
d’un téléviseur (et même pendant la 
réception d’une émission) un rectangle 
réservé à l’ordinateur. Imaginez qu’une 
chaîne de télévision diffuse alors une 
série de cours d’initiation à l’informa- 
tique. Imaginez... le professeur en haut 
du petit écran et les exercices de chacun 
dans une petite fenêtre du téléviseur. 


Si l’on écrit maintenant — en utili- 
sant les parenthèses — SCREEN (x,y), 
cela prend une tout autre signification 
que le SCREEN Xx,y (sans parenthèses) 
décrit plus haut : l’ordinateur retourne 
en effet le code ASCII du caractère 
affiché en colonne x et en ligne y. 
Selon les cas, SCREEN sera donc com- 
mande ou fonction. Il aurait mieux 
valu éviter le risque de confusion. 
Dommage. 


L’ordre CONSOLE x, y,z,1 permet de 
définir à sa guise la fenêtre d’écriture. 


Les périphériques 
du MO5 

sans 

la télévision ! 


On peut ainsi décider que l’affichage ne 
s'effectuera plus qu’entre les lignes x et 
y. Le paramètre z permet de changer 
les couleurs courantes. Quant à #, s’il 
vaut zéro, c’est le déroulement normal, 
assez brutal en fait. Si f vaut 1, le 
déroulement s’effectue huit fois plus 
lentement, en mode graphique, bien 
plus régulier et plus agréable. Si £ vaut 
2 enfin, il n’y a plus de déroulement à 
l'affichage : lorsque l’écran est plein, 
l'affichage recommence en haut de 
l’écran en prenant la place de ce qui s’y 
trouve déjà inscrit. 


Avec ATTRB, on change la taille des 
caractères : double largeur, double 
hauteur ou les deux à la fois. L’affi- 
chage des messages et des résultats 
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passe par l’inévitable PRINT et ses 
acolytes TAB, SPC, USING... On dis- 
pose en outre de CSRLIN et de POS 
qui retournent la ligne et la colonne où 
se trouve le curseur. On peut, inverse- 
ment, choisir la position du curseur et 
décider s’il sera clignotant ou invisible : 
c’est la fonction de LOCATE. 


Pour définir ses propres caractères, 
on utilisera DEFGRS (i) après avoir 
demandé un CLEAR,, i+1. En effet, 
le MOS ne s’est réservé que les 128 pre- 
miers codes ASCII. Les 128 suivants 
sont disponibles à condition qu’ils aient 
été définis par GRS$ (i) ou CHRS 
(128+i). Chaque définition d’un nou- 
veau caractère consomme huit octets de 
mémoire vive. 


Les quatre ordres PSET, LINE, 
BOX et BOXF permettent d’allumer un 
point, de tracer une ligne, de dessiner le 
contour d’un rectangle ou de le rem- 


plir. On peut même choisir une autre 
couleur que celle qui a été définie avec 
SCREEN sans pour autant affecter la 
couleur d’écriture des caractères. 
Enfin, et cela n’est pas à négliger, il est 
possible de tester l’état d’un point 
grâce à POINT. 


En résumé, les qualités graphiques 
du MOS sont remarquables, même si 
l’on doit regretter l’absence de l’ins- 
truction CIRCLE. 

Trois accessoires, en option, ont été 
prévus dans le Basic d’origine: le 
crayon optique, la manette de jeu et le 
magnétophone à cassette. Ainsi le 
réglage du crayon se fait par TUNE, 
alors qu’INPEN et INPUTPEN retour- 
nent la position de l’écran pointée par 
le crayon (INPEN n'attend pas l’appui 
sur l'écran). L’instruction PTRIG 
détecte si la pointe du crayon est 
enfoncée ou non. L’ensemble paraît 
fiable et très précis. 


Concernant la manette de jeu, 
STICK retourne sa position (de 0 à 8) 


et STRIG teste si la touche « action » 
est enfoncée. Il s’agit des mêmes 
manettes que celles du TO 7, le contrô- 
leur se branchant sur le bus, à l’arrière 
de l’ordinateur. 


Enfin, ce que Thomson nomme un 
LEP est un lecteur-enregistreur de pro- 
grammes, autrement dit un magnéto- 
phone dédié à cet usage spécifique. Il 
ne fonctionne qu’avec le MOS et il est 


le seul, apparemment, à convenir. 
Votre bon vieux magnétophone ne vous 
sera donc d’aucun secours. 
Dommage... 


Outre les LOAD, SAVE, MERGE, 
MOTORON et MOTOROFF, on 
trouve un très utile SKIPF qui permet 
d’enjamber un ou plusieurs fichiers. A 
cette batterie d’instructions s’ajoutent 
OPEN, CLOSE, PRINT#, INPUT#, 
LINEINPUT# et EOF (gestion des 
fichiers de données). 


Si l’on a enregistré un programme en 
lui donnant un nom (SAVE « nom », 
P), il se trouve protégé : les ordres tels 
que LIST, PEEK, POKE, EXEC 
deviennent inopérants. 


On annonce des disquettes 5 pouces 
1/4, mais de capacité modeste : 80 Ko. 
Le système d’exploitation des disquet- 
tes (en abrégé SED, ou DOS en anglais) 
apportera quelques mots supplémentai- 
res au Basic. On en trouve la liste dans 
celle des mots réservés : FN, HEXS, 
USR et DOS. 


Le MOS est vendu accompagné d’un 
guide dont l’auteur n’est autre 
qu’André Déledicq ; vous connaissez 
peut-être ses articles et ses ouvrages 
scientifiques ? Il reste ici fidèle à sa 
réputation : très agréable à lire. Ce 
guide du MOS est partagé en deux par- 
ties à peu près égales : « Leçons » et 
« Fiches de référence ». Il devrait con- 
venir tant aux néophytes qu’aux pro- 
grammeurs avertis. 


En conclusion, le point fort du MO5 
reste son Basic, riche et souple et très 
habile pour les graphiques. Son prix 
(2390 FF ttc) le place en concurrent 
direct du ZX Spectrum. A l’essai, la 
vitesse d’exécution du MOS s’avère très 
honorable, comme on pourra en juger 
aux pages 87 et 88 avec les dix tests de 
LIST. Ce petit ordinateur français 
(Basic made in U.S.A. tout de même) 
devrait connaître un beau succès. 


Christian BOYER 
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PB-700 


UN PROGRAMME BASIC 
SOUS LA LOUPE 


OICT un jeu de cartes inspiré d'un divertissement très populaire qui 

fait fureur auprès des auditeurs de RTL (le PokeRTL) Le 
programme correspondant met en œuvre tout à la fois un tableau de variables à 
deux dimensions, des caractères graphiques, des nombres aléatoires, 
un positionnement sur les quatre lignes de l'écran... Tout y passe, ou presque ! 


Le Imaginez la scène : un candidat, 

un animateur, un jeu de 
cinquante-deux cartes. On commence 
par tirer une carte dans le jeu, puis on 
demande au courageux candidat si la 
suivante sera supérieure ou inférieure à 
celle-ci, compte tenu de l’ordre des car- 
tes : 2, 3, 4, 5, 6, 7, 8, 9, 10, Valet, 
Dame, Roi, As. 

La carte en question est alors tirée. 
L’animateur ménage ses effets : ‘Cher 
Monsieur, vous avez dit supérieure au 
huit de carreau, et c’est. c’est. un 
deux de trèfle !”? 


Puis le jeu continue, mais cette fois, à 
partir de la carte qui vient d’être tirée. 
Dans ce cas précis, si nous avons effecti- 
vement un deux de trèfle, l’effet de sur- 
prise est réduit à néant : comme il s’agit 
de la plus petite carte, la suivante lui sera 
forcément supérieure ; et si, par hasard, 
elle lui était égale, le coup ne compterait 
pas et il faudrait en tirer une nouvelle. 


Chaque fois que le candidat a parié 
dans le bon sens, il gagne 10 000 F, mais 
si par malheur il se trompe, il perd tout 
ce qu’il avait gagné ! 

Ce jeu doit beaucoup au hasard, mais 
le joueur dispose quand même d’un élé- 
ment d’appréciation : les cartes tirées ne 
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sont pas remises dans le jeu, ce qui per- 
met d’évaluer les chances de sortie des 
grosses ou des petites valeurs, en fonc- 
tion de celles déjà passées. Dans le pro- 
gramme correspondant à ce jeu, nous 


tre fois de suite, avec un RESTORE cha- 
que fois. Au final, notre jeu sera créé 
par ces deux boucles emboîtées (lignes 
50 et 70). 


nous limiterons à 10 tirages de cartes en :::::: 


plus de la première, pour simplifier. 
Ce programme suit le plan décrit par 


lorganigramme général : la séquence 


pari-tirage-résultats va donc revenir dix 
fois de suite. Il faudra créer une boucle 
pour elle. De même, l’opération ‘‘tirage 
d’une carte” va intervenir une première 
fois pour la carte de départ, puis revenir 
dix fois : pour ne pas nous répéter, nous 
devrons placer ce tirage dans un sous- 
programme. 


Commençons à approfondir chacune 
des phases de cet organigramme. 


La formation du jeu de cartes va se 
traduire par un tableau à deux dimen- 
sions dans la mémoire de l’appareil : 
dimension 1, valeur des cartes, et dimen- 
sion 2, ‘‘couleur”’ (pique, cœur, car- 
reau, trèfle). Comment réaliser un tel 
tableau ? Voyons tout d’abord ces qua- 
tre ‘‘couleurs”” de cartes ; nous n’avons 
qu’un écran noir et blanc, mais le PB- 
700 possède les graphismes nécessaires 
pour les cartes à jouer : ils sont obtenus 
avec la fonction CHR suivie du code 
ASCII approprié (232 pour un pique, 
233 pour un cœur, 234- pour un carreau 
et 235 pour un trèfle). 


Quant aux valeurs de cartes, nous 
allons simplement les disposer sur une 
ligne de DATA, dans laquelle une ins- 
truction READ va venir ‘‘piocher’’ qua- 


Nous pouvons alors commencer à 
écrire la première partie du programme 
qui va des lignes 20 à 110. 


A la ligne 20, le dimensionnement des 
tableaux est indispensable dès lors que 
nous utilisons des variables qui compor- 
tent un ou deux indices. La longueur des 
variables E$ est ici précisée : 10 caractè- 
res sont nécessaires pour le plus long des 
affichages, ‘‘VALET DE...””. La varia- 
ble B$(A) représente la couleur de nos 
cartes. Comme A prend successivement 
les valeurs 0, 1, 2 et 3, l'expression de la 
ligne 60, CHR$(232 + A) nous donnera 
bien les quatre symboles : pique, cœur, 
carreau ou trèfle. 


A la ligne 80, nous lisons les valeurs 
des cartes tirées des DATA de la ligne 
30 ; et à la ligne 90 nous regroupons tous 
ces éléments par une concaténation : 
valeur + ‘‘de””’ + couleur. 


Les lignes 100 et 110 contiennent les 
NEXT correspondant aux FOR et un 
RESTORE qui, entre chaque couleur, 
remet le pointeur de données au début 
des DATA. 
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US 


OS 


Supérieur ou inférieur ? 
Programme pour PB-700 
Auteur Pierrick Moigneau 
Copyright LIST et l’auteur 


Programme principal 


i REM X-- Superieur ou inferieur --X 
CLEAR :CLS 

PRINT "x SUPERIEUR" :PRINT TAB(C9);" 
oU'":PRINT TAB(9); INFERIEUR *": 
DIM B$C3),C$(12):E$(3; 12x10; G(2) 


25 REM X-- Ualeur des cartes --X 

30 DATA2;3:4,:5:63 738» 93 183 VALET » DAME» 
ROI;AS 

40 REM %X-- Couleurs des cartes --X 

5@ FOR A=G TO 3 

68 B$CA)D=CHRS(C232+A) 


65 REM X-- Formation du jeu --* 

78 FOR D=@ TO 12 

8@ READ C$<CD) 

38 E$(A:D)=C$(D)+" de "+B$CA) 

108 NEXT D 

i1Q RESTORE :NEXT À 

12Q REM X-- Tirase d une carte —-X 
130 I=1:CLS .-GOSUB 588 

14@ FOR K=1 TO 10 

159 REM *X-- Affichase de la carte --X 
155 LOCATE 4,G:PRINT NNS;" ds 

i68 PRINT ©SUPRCS) OÙ INFRCID?7 

17Q H$S=INKEYS: iF H$="" THEN 178 

18Q REM %X-- Tirage carte suivante --* 
i98 I1=-2:GOSUB 588 

288 LOCATE 4,@:PRINT " 

21@ LOCATE 4,2:PRINT NN$:" 

220 REM X-- Recherche du resultat —-X 
230 IF G(2)=6G(1) THEN 190 


248 IF GC2)22GC1) THEN IF H$="S" THEN 3 
28 

250 IF GC2)<GC1) THEN IF H$="I" THEN 3 
28 

268 REM X-- Si © est rerdu,.. --X 

270 J=G:BEEP .BEEP 1 

280 PG$="PERDU!. “: GOSUB 700:GO0SUB 600 
INEXT K:GOTO 4ag 

23Q REM %X-- Si c est sasne.. ==* 

300 J=-J+1Q0000:BEEP 1:PG$="GAGNE!. “:6G0 
SUB 700: GOSUB GOB:NEXT K 

330 REM X-- Resultat final —-* 

4Q@8 CLS :PRINT ‘...UOUS AVEZ GAGNE:".U 
SING'"'#H#H#4H", TABC5); J:% Er": GOSUB 
608 

41@ PRINT “XUOULEZ UOUS REJOUERCY/N)D7 

440 REM %X-- Retour au debut --X 

450 L$=INKEYS.iF L$="" THEN 45@ ELSE I 
F L$="Y" THEN 5: ELSE END 

Sous-programmes 

499 REM X--Ss-prgm/Tirase d ure carte 
——* 

500 F=INT{RNDK4):GCID=INTCRNDX13): IF E 
$(F:GCI1)22=-"*" THEN 508 

518 NN$=ES$(F:GCID) 

520 REM %X--— Elimination de la carte ve 
nant d etre tiree --X* 

539 E$(F:GC1))="*: RETURN 

53Q REM %X-- Ss-rrsm/Boucle de temroris 
ation —-X 

608 FOR M=1 TO I@S:NEXT M: RETURN 

698 REM X-- Ss-prgm/Affichase des sain 
S ——X 

728 G(1)2=6(2) 

21Q LOCATE G,3:PRINT CHR$C254); PG$: CHR 
$C254)5"F "3; TJ; TABC18); CHR$(254); 

2@ RETURN 


Cette portion de programme peut très 
bien fonctionner individuellement, ce 
qui permet de vérifier qu’il n’y a pas 
d'erreur. En tapant sur le clavier ES 
suivi de deux indices, nous devons obte- 
nir avec ENTER l'affichage d’une carte. 


Par exemple, E$(3,2) ENTER doit 
faire apparaître 4 dec. 


Passons à présent au sous-programme 
“tirage d’une carte”” ; rappelons que la 
structure sous-programme va permettre 
de ne l’écrire qu’une fois, alors qu’il y 
aura onze tirages de cartes au total. 


Chaque tirage se fera en déterminant 
deux nombres aléatoires : le premier, 
compris entre 0 et 3 sera la couleur de la 
carte tirée, et le deuxième, compris entre 
0 et 12, sera sa valeur. Ces nombres 
seront utilisés comme indices pour loca- 
liser la carte dans le tableau. 


Il faudra ensuite vérifier que cette 
carte n’a pas déjà été tirée. Si c’est le 
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cas, la case de cette carte dans le tableau 
est vide et il faut effectuer un autre 
tirage. Quand la carte est présente dans 
le tableau, il faut l’en éliminer tout de 
suite, justement pour qu’elle ne puisse 
pas être tirée une seconde fois. Il suffira 
pour cela de placer une chaîne vide (”” ”’) 
dans sa case. Au préalable, comme nous 
avons besoin de cette carte pour la suite 
du jeu, nous aurons pris soin de l’affec- 
ter à une variable intermédiaire, dont le 
contenu changera donc à chaque tirage. 
Le sous-programme qui effectue toutes 
ces opérations est inscrit aux lignes 490 à 
530. 


N'oubliez pas les REM SVP ! Elles ne 
vous tendent pas leurs casquettes, mais 
elles ont bel et bien un rôle de guide... 
Nous devons garder à l’esprit qu’un pro- 
gramme doit pouvoir être compris par 
une autre personne que son concepteur. 

Notons les nouvelles variables qui 
arrivent : 

F = nombre aléatoire, indice de la cou- 
leur de la carte tirée ; 

G(1) = nombre aléatoire, indice de la 
valeur de la carte tirée ; 

I indice permettant dans la suite du 


jeu de savoir dans quel ordre les cartes 
ont été tirées ; 


Formation du 
Jeu de cartes 


Tirage d'une 


Première corle 


Debuf de 
boucle 


Tirage dune 
corte 


Resultats 
et gains 


our 
Choix de nouvele 
partie ou non 


Organigramme général 


NN$ variable-tampon contenant la 
désignation de la carte tirée. 


L’appel de ce sous-programme se fera 
pour la première carte depuis la ligne 
130 : I = 1 : CLS : GOSUB 500. 


Il faut maintenant afficher la carte 
qui vient d’être tirée, en utilisant la 
variable-tampon NN$. Arrive alors la 
question fatidique : supérieure ou infé- 
rieure ? 

Cette partie du programme ne pose 
pas de problème de raisonnement, mais 
nous devons réfléchir à la disposition 
de nos différents éléments sur les qua- 
tre lignes de l’afficheur : 

. première ligne : affichage de la carte 
préalablement tirée ; 

. deuxième ligne : question 
rieure ou inférieure » ; 

. troisième ligne : emplacement réservé 
à la carte qui va sortir ; 

. quatrième ligne : affichage des résul- 
tats et des gains. 


Pour caser la question « supérieure 
ou inférieure » sur une seule ligne, en 
précisant ce que doit répondre l’utilisa- 
teur, il faut abréger : « SUPR (S) OU 
INFR (1) ? » (car nous n’avons que 20 
caractères par ligne). La réponse sera 
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« supé- 


une lettre seule : S ou I, ce qui permet- 
tra de recevoir celle-ci dans un 
INKEY$. Solution, les lignes 140 à 170 
du programme. 


A la ligne 140, nous trouvons le 
démarrage de la boucle qui effectuera 
10 fois le cycle pari-tirage-résultats. 
Notons nos deux nouvelles variables : 
K, variable-compteur de boucle et H$, 
variable destinée à recevoir le pari 
«S » ou «I ». 


Pour tirer une autre carte, il suffit de 
rappeler notre sous-programme qui 
commence à la ligne 500. Nous donne- 
rons simplement la valeur «2» à 
l'indice I, ce qui va nous permettre de 
comparer G (1), valeur de la carte pré- 
cédemment tirée, et G (2), valeur de la 
carte actuelle. Nous ne nous occupe- 
rons pas de la couleur de ces cartes, 
puisqu’elle n’intervient pas dans le jeu. 


Nous avons donc en main les élé- 
ments suivants : deux valeurs de cartes, 
G (1) et G (2), et un pari, sous la forme 
«S » ou « I ». Si les deux cartes ont la 
même valeur, par exemple deux dames, 
le coup ne compte pas et il faut retirer 
une autre carte. Si G (1) est supérieure 
à G (2) et que nous avons parié « S », 
c’est gagné ; de même, si le pari est 
« I » avec G (1) inférieure à G (2). 

En dehors de ces deux situations 
(cartes égales ou pari gagné), les autres 
cas ne peuvent correspondre qu’à des 
paris perdus : il est donc inutile de les 
faire figurer dans le programme. Tout 
cela nous conduit aux lignes 180 à 250. 
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A la ligne 200, une longue suite 
d’espaces sert à effacer la première 
carte et la question « SUPR (S) ou 
INFR (1) ? », de manière à rendre plus 
clair l’affichage. La carte qui sort est 


affichée par la ligne 210. 


Il nous reste à voir ce qui se passe si 
le pari est gagné. Nous allons placer 
cette section du programme à partir de 
la ligne 300. Ainsi dans le cas d’un pari 
perdu, c’est la ligne venant immédiate- 
ment après la 250 qui sera exécutée. 


L'affichage des résultats comportera 
deux phases : 
. affichage d’une chaîne de caractères 
qui sera, selon le cas, « GAGNE ! » ou 
« PERDU ! » ; 
. modification des gains obtenus par le 
joueur ; nous savons que si le pari est 
gagné, ces gains doivent être augmentés 
de 10 000 F, alors que s’il est perdu, ils 
doivent revenir au niveau zéro. 


Donc, quel que soit le résultat, nous 
avons un mot et un gain à afficher ; ce 
dernier pouvant être compris entre 0 et 
100 000 F. De plus, la carte qui vient 
d’être tirée doit servir de référence pour 
le prochain pari : il est donc nécessaire 
que sa valeur, représentée jusque-là 
par G(2), soit maintenant affectée à G 
(1). 

Nous allons placer ces trois éléments 
dans un sous-programme, qui inter- 
viendra dès que le mot et les gains à 
afficher auront été définis. 


Pour que le déroulement de notre jeu 
soit plus clair, il sera bon de laisser 
s’écouler quelques instants avant le 
tirage suivant. Pour cela, une boucle de 
temporisation fera l’affaire. Nous la 
placerons également dans un sous- 
programme pour qu’elle puisse nous 
resservir. 


gravo!!! 
Vous GAGNEZ TToNE 
DE GROYÈRE..! 


Ultime fignolage : un signal sonore 
différent retentira en fonction des 
résultats. 


Ce sont les lignes 260 à 300, complé- 
tées par les sous-programmes 600 et 
700 qui affichent les résultats. Deux 
nouvelles variables apparaissent : PG$, 
qui contient « GAGNE ! » ou 
« PERDU ! » et J, qui est le montant 
des gains. 


Le sous-programme « affichage des 
gains » (lignes 690 à 720) n’appelle 
guère de commentaires, pas plus que 
celui des lignes 590 et 600 qui ne con- 
tient qu’une boucle vide. 


Avons-nous terminé cette fois ? Non, 
car il reste à savoir ce qui va se passer 
quand notre boucle de 10 tirages suc- 
cessifs sera terminée : les lignes 280 et 
300 nous enverront alors en 400, où 
sera affiché le résultat final. Après une 
petite temporisation (toujours celle de 
la ligne 600), la question se posera de 
savoir si l’on veut rejouer une partie. Si 
c’est le cas, il suffira de « sauter » au 
début du programme : IF L$= ’’Y’”’ 
THEN 5 (ligne 450). 


Pour gagner du temps, nous avons 
quelque peu brûlé les étapes lors de la 
phase « conception » ; en effet, on ne 
s'aperçoit pas tout de suite de certains 
petits problèmes tels que : affichages, 
espaces, etc... Il faut passer par une 
phase « finition » où, sachant que la 
partie principale du programme est en 
ordre de marche, on peut se permettre 
de régler les ultimes détails : confection 
des titres, fignolages divers, réglage des 
temporisations, et renumérotage des 
lignes, pour qu’elles soient toutes espa- 
cées de 5 en 5 ou de 10 en 10 (pour les 
perfectionnistes..….). 


Revenons à notre programme. Il est 
bel et bien terminé cette fois, et il ne 
reste plus qu’à passer à l’archivage : 
sauvegarde sur cassette, et classement 
des documents nécessaires à une utilisa- 
tion ou une modification future. A 
savoir : une liste complète, un tableau 
des variables et un descriptif rapide de 
la façon d’utiliser le programme. 

Vous avez maintenant décortiqué, 
tapé, « débogué », sauvegardé, archivé 
tout ce qui concerne ce programme ? 
Alors, il est temps de commencer à 
jouer. 


Pierrick MOIGNEAU 
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L 
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CCR 


ET LA LUMIÈRE FUT 


A l'impossible nul n'est tenu ? Que nenni, 
voici un programme pour le PC-1500 qui 


liste ses congénères et est mème capable d'en 
commander l'exécution d’un RUN bien senti. S'il 


Quand on a différents pro- 
grammes dans la mémoire du 
PC-1500, il faut quelquefois avoir la 


faut le voir pour le croire, le comprendre est une 


autre histoire... 


des lignes portent le numéro O (Utili- 
taire, après les POKESs). 


“grosse tête” pour se souvenir des :#% 


emplacements de chacun d’entre eux 
et, notamment, de leurs numéros de 
ligne respectifs. 


Bien sûr, quand un programme est 
nommé à l’aide d’une étiquette, par 
exemple 1110: ’’RESOLUTION 
D/EQUATION”’:..., il suffit alors en 
mode PRO de taper LIST ‘‘RESOLU- 
TION D/EQUATION?” pour y accéder. 
De même, en mode RUN, taper RUN 


Programmez maintenant vos propres 
programmes, ceux qu’il vous plaît de 
taper, en n’omettant pas, bien sûr, de 
les nommer à l’aide d’une étiquette 
alphabétique. 


Utilitaire 

Programme pour PC-1500 
Auteur Frédéric Blondiau 
Copyright LIST et l’auteur 


N — 


Avant les POKESs 


: "A'AREAD M$ 

: "L'AREAD M$:ON 
ERROR GOTO 8: 
IF ASC M$LET L 
$=M$ 

:WAIT SPRINT L 
$:RESTORE L$: 
IF ASC INKEYS 


“RESOLUTION D/EQUATION?”’ suf- à CALL &CRBSIA 
fit à l’exécuter. Pour lister l’un de ces programmes, 4:1F PEEK &?B0F- 
Mais tout cela est d’un classique! 7 mode RUN (eh, oui), one 1S8THEN 6 
. À . 7 puis faites DEF L: l’ordinateur se S:RUN LS 
L'ordinateur se débrouille très bien retrouve en mode PRO juste sur la : 
tout seul : lister un programme quand Jigne recherchée. 6:POKE 8&794F, 36 
on tape DEF L, et même l’exécuter à Mi | | 2:LIST L$ 
DEF A. Le plus étonnant c’est que l’on pr a DOUF ÉReeuRer Je DEF 8: CURSOR 3 
utilise les instructions LIST et RUN £'7m€ vou DES ee CORRE ee S:PRINT "9? 
dans le programme utilitaire alors que É Par la suite, il . inutile de FRERES 
a e nom pour re-lister ou ré-exécut: 
le manuel est formel : ‘LIST et RUN le Ro pu Éi die à sante Après les POKEs 
ne sont pas programmables”. Effecti- oubles À © DEF À DEF L 
vement, essayez et vous aurez une belle SUUACS, TAPEZ Net 7 1: "A'"QREAD M$ 


maintenant pressée la touche A ou L : 


t st [LI e t 
PER LL. le nom est visualisé mais, bien sûr, pas 2: L AREAD M$: ON 
Le programme reproduit ci-contre exécution ni de listage. FRROR GOTO 8: 
(Utilitaire, avant les POKEs) occupe dat : = : IF ASC M$LET L 

seulement 140 petits octets. Il se tape ee a ne ne d'interrogation $=M$ 
normalement mais doit être modifié Slgnitie que le nom donné n existe pas 3:WAIT S:PRINT L 


ensuite par exécution des instructions 
suivantes : 


comme étiquette d’un programme en 
mémoire. 


Voilà 9 lignes de programme dont on 


$:RESTORE L$: 
IF ASC INKEYS 


N = PEEK &7865*256 + PEEK & | ne saurait plus se passer pour faire la  CALL &CBSA : 
7866 lumière sur la mémoire de l’ordinateur. LL es &/BDF= 
POKE N + 96,0 Quant à la lumière sur le mode de Q: RUN à ; 

POKE N+118,0 fonctionnement de cet utilitaire, c’est B:POKE R2B4F, 3 
POKE N+133,0 encore une fois une histoire de poin- . 784F, 36 

teurs. B:LIST LS 

Cette petite gymnastique donne au 8: CURSOR 3 

programme une drôle d’allure. Trois Frédéri BLONDIAU B:PRINT "? 
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VIVENT LES PAS, LES PARAS, 
VIVENT LES PARAMÈTRES ! 


À simplicité a tout pour plaire. 
Maïs attention à ne pas se laisser séduire 
trop vite ! S'il est très simple d'utiliser 
des constantes, on 4 Souvent avantage 
à leur préférer les variables. 
D'ailleurs, est-ce vraiment plus compliqué ? 


Paramétrer, ça veut dire utiliser 
une variable à la place d’une 
constante. Ou si vous préférez, au lieu 
d’écrire : 
10 PRINT « BONJOUR » 
écrire : 
10 LET A$ = « BONJOUR » 
20 PRINT A$ 
au lieu d’écrire : 
10 LET A=Yx#40+X 
écrire : 
10 LET N=40 
20 LET A=Y+N+X 


Vous entendez d’ici le débutant faire 
remarquer que ça ne sert à rien qu’à 
compliquer les choses, et puis d’abord 
pourquoi faire deux lignes quand une 
suffit, hein ? Ne vous gaussez pas du 
débutant. Il a raison. Il a raison si son 
rêve est d’écrire un programme simple 
et concis grâce auquel un ordinateur 
affiche à l’écran le message « BON- 
JOUR » et s’en tienne là. Mais il se 
trouve que vos ambitions et les miennes 
vont parfois un brin au-delà. Et s’il 
s’agit d’un projet un peu plus élaboré, 
un peu plus complexe et un peu moins 
nunuche, alors, on s’aperçoit que la 
simplicité n’est pas toujours la meil- 
leure solution. Cela dit, je le répète, ne 
riez pas trop du débutant (que j’ai moi- 
même été, comme vous). 
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Une des premières raisons de para- 
métrer est de gagner de la place en 
mémoire. Cette pauvre Alice n’a pas 
une très grosse tête, un ZX 81 tout nu, 
ça ne pèse pas lourd, et pour peu que la 
fantaisie vous prenne d’attaquer un 
« LISTinge » par un DIM A$(5000, 
5000), carrément, sans prévenir, même 
sur une bébête beaucoup plus grosse, 
vous risquez d’avoir envie par la suite 
de ne pas gaspiller trop d’octets en pro- 
gramme. 


Sur le ZX précité, par exemple, les 
constantes numériques sont de redouta- 
bles croqueuses d’octets, puisqu'elles 


Il y a ceux qui paramètrent 
et il y a les autres. 
(attribué, peut-être à tort, 
à Mao Tsé-Toung) 


pompent 1 octet par caractère ASCII, 
plus six octets de codage. La ligne : 10 
LET A=16514 va donc occuper 
5 octets pour frais de ligne dont 2 
octets forfaitaires pour le numéro (que 
ce soit 1 ou 9999), +1 pour LET, +1 
pour À, +1 pour =, +1 pour 1, +1 
pour 6, +1 pour 5, +1 pour 1, +1 
pour 4, +6 pour le codage, soit 19 
octets. 


Bon, 19 octets de fichus, dont 11 
pour la constante numérique 16514. 
Une supposition que j'aie à utiliser ce 
nombre cinq fois dans un programme. 
Vous ne direz pas que j’abuse, hein ? 


N° 1 - JUILLET AOÛT 84 


tt (A 0 ( M 


Pie) 


JL BU ND nm FO 


dt fé SR A PR et nt Dé bent 7 et On 


AAA BU ND ND ms (1 


D. can SL à OS D | 


Cinq fois, ce n’est pas énorme. Cinq 
fois 11, ça fait 55. Donc, si j'utilise 
cinq fois la constante 16514, j'utilise 55 
octets. Si je consacre une ligne à en 
faire une variable, je perds 19 octets, 
certes, mais après, 16514 est désigné 
par la seule lettre À qui consomme en 
tout et pour tout UN octet. Faites le 
calcul : 19+5 = 24 au lieu de 55. Ça 
vaut le coup, non ? 


Une autre bonne raison de paramé- 
trer les nombres est la vitesse d’exécu- 
tion. On peut tenter un test avec le pro- 
gramme simplet suivant : 

10 REM PROGRAMME SIMPLET 
20 LET A=0 

30 FOR I=1 TO 100 

40 LET A=A+123456 

50 NEXT I 

60 PRINT « STOP » 

70 STOP 


Se munir d’un chronomètre, ou utili- 
ser sur sa belle montre à quartz la fonc- 
tion chrono dont on ne s’est pas servi 
depuis la semaine où elle était neuve. 
Frapper RUN, et appuyer sur 
RETURN/ENTER/NEWLINE en 
même temps qu’on lance le chrono. 
Arrêter le chrono à l’apparition du 
message STOP. (Si vous avez une 
bécane à horloge interne utilisable sur 
variable réservée vous pouvez utiliser le 
programme ci-contre, où TI est une 
variable réservée au temps en soixantiè- 
mes de seconde, dits aussi « jiffies ».) 

Recommencer l’expérience en chan- 
geant le 100 de la ligne 30 en 1000, puis 
en 10 000 et consigner chaque fois les 
résultats avec soin et avec un crayon. 


On peut alors modifier le pro- 
gramme : 
10 PROGRAMME SIMPLET MODIFIE 
20 LET A = 0 
25 LET B = 123456 
30 FOR I = 1 TO 100 
40 LET À = À + B 
50 NEXT I 
60 PRINT « STOP » 
70 STOP 


Refaire l’expérience et comparer les 
temps. Allez-y, faites-le, je ne vous dis 
rien de plus pour l'instant. Affaire à 
suivre. 


François J. BAY ARD 
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Programme 
de démonstration 
sur Commodore 
Auteur François J. Bayard 
Copyright LIST et l’auteur 

TI est une variable réservée 
liée à l’horloge interne qui 
représente le temps écoulé 
depuis l’allumage de l’ordi- 
nateur, temps exprimé en 
« jiffies » ou soixantièmes de 
seconde. Ça ne doit pas être 
trop sorcier de l’adapter à 
d’autres bécanes si l’on a 
accès à une horloge. Dans le 
cas contraire, vous serez 
votre propre chronométreur ; 
il n’y a pas de honte à ça, 
allez allez ! Au fait, avez- 
vous remarqué que les messa- 
ges (lignes 130-160) étaient 
sous forme de variables ? 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


rem LERELLZEE] paraboucles LÉLELELZE] 
rem 
nt=100:rem nombre de tours 
nc$="nombre en constonte” 
nv$="nombre en variable“ 
b1$="boucles de 1 ligne "“ 
b3$-“boucles de 3 lignes “ 
print chr$(147):rem efface l'ecron 
rem 
nombre en constante 
rem ...... escoes sesséesss 3 lignes 
print nc$ 
print 
print nt;b3$; 
t=ti 
for i=l to nt 
a=a+123456 
next i 
tt=ti-t:gosub 550 
PeM sise sense. serres 
print nt:blf; 
t=ti 
for i=1 to nt:a=a+123456:next i 
tt=ti-t:gosub 550 
CEM —---—--- nombre en variable 
3 lignes 


| ligne 


print 
print nv$ 
print 
print nt;b3$; 
t=ti:b=123456 

for i=1 to nt 

a=a+b 

next ji 
tt=ti-t:gosub 550 
OM sise dose de 
print nt;blf; 
t=ti 

for i=1l to nt:a=a+b:next i 
tt=ti-t:gosub 550 
print 
rem 
nt=nt*10:if nt<l0OT7 then 210 
end 
rem ======== chronometrage 
s=int(tt/60) 
dd=int((tt-s*60)*60/ 100) 
print mid$(str$(s),2);"."; 
print mid$(str$(dd)+"0*,2,2) 
return 


1 ligne 


ready. 
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TS 


LA Sur la FX-602 P, ce jeu sous 

tous les angles, n’est pas tou- 
jours facile à pratiquer : il faut savoir 
intervenir au bon moment, ni trop tôt, 
ni trop tard. 


La partie débute par l'apparition 
d’un compteur (il ira de 20 à 0) et d’un 
indicateur de mode angulaire, DEG, 
RAD ou GRA. Pour marquer un 
point, il faut appuyer sur 4, 5 ou 6 
selon l’indicateur : 4 pour DEG, 5 pour 
RAD, 6 pour GRA. Et l’appui doit se 
faire rapidement, sinon le programme 
n’en tient pas compte. 


Les erreurs ne font rien gagner, elles 
ne font rien perdre non plus. A la fin 
de la partie, le score est affiché suivi du 
record. 


Le programme est simple et court. Il 
utilise une astuce spécifique à la FX- 
602 P : la présence d’un même label (ici 
LBL 4) deux fois dans la liste. C'était 
indispensable, les dix labels, O à 9, 
étant tous utilisés. 


Le programme ne confond pas ces 
deux étiquettes. Le premier LBL 4 de la 
liste est atteint par l'instruction IND 
qui le précède. Quant au second LBL 
4, il est atteint par l’instruction GOTO 
4. En effet, dès que le programme ren- 
contre cette dernière, il remonte la liste 
en marche arrière jusqu’à ce qu’il 
trouve l’étiquette LBL 4 (s’il ne la trou- 
vait pas, il redescendrait et irait la cher- 
cher après le GOTO). 


Et maintenant, entraînez-vous à sur- 
veiller les indicateurs. 


Jean-Jacques ROBERT 
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Lo. d'angles avec laquelle vous travaillez 
apparaît à l'écran de la FX-602 P grâce aux 
indicateurs DEG, RAD et GRA. 


Ces petits mots vont Servir, 161, à animer... un jeu. 


ÉTIQUETONS 
LES ANGLES 
DE LA 
FX-602 P 


Inifralisafions 


Tirage d'un nombre 
Sous tous les angles entre 4 e/G 
Programme pour FX-602 P 
Auteur Jean-Jacques Robert 
Copyright LIST et l’auteur 


RC Minë7 Affichage du mode 

18 Minëg angukure correspondant 
ie au nombre fire 

RARE x {9 = INT 

Hinûl x3F GÜTO6 

Hi Deroulemenf du 

1 Hinf cempleur 


NRGf 22F GOTDI 
#BGI Mine IND 8070 


Nombre infroduif 
= Nombre fire ? 


Affichage d'# 


Score augmente 


d'un point 


Sri 
4 Î 
Ë 


Affichage Score 
ef record 
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ES machines de table sont souvent très mal 

équipées pour les opérations au clavier. Voici 
quelques courts programmes qui vous faciliteront la 
vie si vous devex effectuer des calculs à la chaine. 


Votre ‘‘gros’”’ ordinateur fait-il 

partie de ceux qui ne peuvent pas 
réaliser simplement un exploit tel que le 
calcul de 2 + 2? Si oui, vous devez 
frapper d’abord l'instruction PRINT 
(ou un équivalent abrégé tel que le point 
d’interrogation), puis 2 + 2, et presser 


Lit 
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sur la touche RETURN ou ENTER. Le 
résultat, 4, s’affiche. Très bien. 

Très bien... Et si maintenant vous 
voulez savoir combien font 4 — 1? 
Vous devez repartir à zéro : PRINT 
4 — 1, etc. Les calculettes font beau- 
coup mieux : elles permettent d’enchaî- 


7 oN 4 TOu)oURS BESoiN 


D'UN Paus PETIT QUE Soi ! 
EE à 


ner les calculs. Avec ces petites machi- 
nes, on tape simplement 2 + 2 =, et 4 
s’affiche ; et si l’on demande alors 
— 1 =, on obtient 3 ; et ainsi de suite. 
C’est extrêmement commode pour tenir 
à jour le solde d’un compte chèque, par 
exemple. 


Il suffit de quelques lignes de Basic 
pour rendre votre ordinateur aussi prati- 
que qu’une calculette. Vous trouverez ici 
quelques-uns de ces courts programmes 
pour TRS Modèle 1, Dragon 32/64, TI- 
99, TO7. 


Si votre machine n’est pas dans le lot, 
vous n’aurez aucune difficulté pour 
adapter l’un ou l’autre de ces program- 
mes. Mais ce n’est qu’un point de 
départ. Et si les quatre opérations ne 
vous suffisent pas, il ne tient qu’à vous 
d’y ajouter l’élévation à une puissance, 
le calcul d’une racine carrée, les fonc- 
tions trigonométriques, et tout ce qu’il 
vous plaira. 


Vous pouvez aussi programmer la 
possibilité de reprendre le dernier calcul 
ou choisir d’opérer en notation polo- 
naise inverse. 


LIST 
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CALCULETTE DANS 
VOTRE ORDINATEUR 


Calculs en chaîne 
Programme pour TO7 
Auteur Jacques Deconchat 
Copyright LIST et l’auteur 


F4 : 

38 : 

5@ GÜTO 4 
184 REM CALCULS PARTIELS ET MFFICHAGE FI 
Hé 

ia BeVALCEE. 
cf IF Fzi Ti 
34 IF F=ë 7} 
SG IF F=z Ti 
58 IF F=d T 
5 F=-ihs=" 


Pire M me be os es bé be bd Et bete 


Calculs en chaîne 
Programmes pour TI-99, Dragon 32/64 
et TRS 80 Modèle 1 

Auteur Xavier de La Tullaye 

Copyright LIST et l’auteur 


Sur TRS 80 Modèle 1 


48 CLS 

50 DEFDBL A, CR 

6@ REM *#* PREMIER TERME 

7@ INPUT À 

BG IF À = G THEN GOTO 70 

90 REM ##x QUELLE OPERATION € + — # / 7 
190 INPUT “OPERATION "; B#$ 

110 IF VAL (BS$) <> @ THEN GOTO 100 


120 IF B$ = "+" LEFT O = i : GOTO 180 
130 IF B$ = "-" LET ©Q = 2 : GOTO 180 
140 IF B$ = "x" LET © =3 : GOTO 180 
15Q IF B$ = “/* LET O = 4 : GOTO 180 


160 REM ###% ON PREND SEULEMENT + — # ET / 
176 GOTO 180 

180 REM kxx DEUXIEME TERME 

196 INPUT C 

200 REM xxx ON REJETTE LE ZERO 

21Q IF C = O@ THEN GOTO 190 

220 REM xxx CALCUL DU RESULTAT 


23Q IF O=i THEN LET R = A + C 
24Q IF 0=2 THEN LET R = A - C 
250 IF O=3 THEN LET R = 4 *# C 
268 IF OQ=4 THEN LET R # 4 / C 


270 REM **x AFFICHAGE DE L’OPERATION 
280 PRINT 45° "ER" "SC" > 175R 
290 REM *Kk# R DEVIENT LE PREMIER TERME 
300 LEFT 4A=R 

310 REM #%#%*% ON ENCHAINE 

320 GOTO 100 
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Sur TI-99 
140 REM 
150 CALL CLEAR 
160 REM 


200 REM PREMIER TERME 

210 INPUT A 

220 IF A=0 THEN 210 

230 REM 

300 REM CHOIX OPERATION 
310 INPUT "OPERATION ":B$ 
400 REM DEUXIEME TERME 
410 INPUT C 

420 IF C=0 THEN 410 

430 REM 

500 REM CALCUL RESULTAT 
510 IF B$="+" THEN 550 

520 IF B$="-" THEN 570 

530 IF B$="#" THEN 590 

540 IF B$="/" THEN 610 

550 R=A+C 

560 GOTO 700 

570 R=A-C 

580 GOTO 700 

590 R=A#C 

600 GOTO 700 

610 R=A/C 

700 REM AFFICHAGE RESULTAT 
710 PRINT A;" "5B#;" "3Cj" — 
> "JR 

800 REM OPERATION SUIVANTE 
810 INPUT "GARDER R COMME PR 
EMIER TERME (O/N)":REPS$ 

820 IF REP#<>"O" THEN 850 
830 A=R 

840 GOTO 300 
850 GOTO 200 


Sur Dragon 32/64 


150 CLS : REM EFFACEMENT ECRAN 
160 REM 
200 REM PREMIER TERME 
210 INPUT À 
220 IF A=0 THEN 210 
230 REM 
300 REM CHOIX OPERATION 
310 INPUT "OPERATION ";B$ 
400 REM DEUXIEME TERME 
410 INPUT C 
420 IF C=0 THEN 410 
430 REM 
500 REM CALCUL RESULTAT 
510 IF B$="+" THEN 550 
520 IF B$="-" THEN 560 
530 IF B$="#*" THEN 570 
540 IF B$="/" THEN 580 
550 R=A+C : GOTO 600 
560 R=A-C : GOTO 600 
570 R=A*C : GOTO 600 
580 R=A/C 
600 REM AFFICHAGE RESULTAT 
610 PRINT 43" "5B#$;" "pCj" ———» 
.R 
, 
700 REM OPERATION SUIVANTE 
710 INPUT "GARDER R COMME PREMIE 
R TERME (O/N)":RE$ 
720 IF RE$<>"O" THEN 750 
730 A=R 
740 GOTO 300 
750 GOTO 200 
ok 
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ete Lee |! 
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net et he, 


nt pp et un As ét Ps © et 


À nt FD et Ps et et 


PROBLÈME DE SYRACUSE 
OU CONJECTURE TCHÈQUE 


TOUJOURS PAS DE SOLUTION 


I votre ordinateur est doté d'un ZS8O, voici une bonne 
occasion de découvrir l'assembleur ou le langage-machine. 
Maïs peut-être pratiquex-vous déjà cette façon de programmer ? 
Dans ce cas, c'est l'application proposée ici qui pourrait vous retenir. 
1] s'agit d'un des plus beaux casse-tête de l'arithmétique. 


Prenez un nombre entier quel- 

conque. S’il est pair, divisez-le 
par deux. S’il est impair, multipliez-le 
par trois, et ajoutez un. Avec le nouvel 
entier obtenu, renouvelez l’opération. 
Quel que soit l’entier de départ et après 
une suite d’opérations plus ou moins 
longue, on arrive toujours à passer par 
la valeur 1 (qui elle-même boucle indé- 
finiment en donnant 4, puis 2, puis 1, 
puis 4, puis 2, puis 1, etc.). Par exem- 
ple, en partant avec 3, cela donne : 10, 
5, 16, 8, 4, 2 et 1. 


Ce problème, aux allures fort sim- 
ples, a été mis à la mode à l’Université 
de Syracuse aux Etats-Unis en 1950. Il 
a été repris de nombreuses fois (1) mais 
n’a toujours pas été résolu. A l’heure 
actuelle, la seule chose sûre est que tous 
les entiers de 1 à 10!2 finissent par 
retomber sur 1: la propriété « sem- 
ble » donc vraie, aucun contre-exemple 
n’ayant été trouvé. 

En examinant la suite donnée par 3, 
nous dirons que la distance de 3 vaut 7, 
puisque 3 demande 7 itérations avant 
d’arriver à 1. Il est facile de faire un 
programme Basic calculant la distance 
en fonction de l’entier de départ, mais 
les résultats se font souvent attendre 
très longtemps. 


(1) Notamment, dans la revue «Pour la 
Science » de mai 1984 et dans « Le Petit Archi- 
mède » (édité par l’'ADCS, association pour le 
développement de la culture scientifique, BP 022 - 
80002 Amiens Cedex) de juin 1983 et de novem- 
bre 1983. Ce problème est également connu sous 
le nom de conjecture tchèque. 
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RS REVOIR 
SYRACUSE «. J 


DL DONT SÜREMENT 
7 AVOIR UN MOYEN | 


FINALEMENT 
CEST SUPER LES 
MATAS . D'AURAIS 
DÜ FAIRE UNE 
SECONDE € AU 
LIEU  D'ARRETER 
APRÈS LE REPC 


D'où l’idée d’écrire un tel pro- 
gramme en assembleur (ici Z80) pour 
gagner en vitesse. Il a été conçu de 
façon à être facilement implanté sur 
tout ordinateur construit autour de ce 
processeur. 


Le nombre obtenu après 3 n + 1 ne 
peut être que pair, n étant impair dans 
ce cas. Il est donc destiné à être divisé 
par 2, d’où le CALL DIV derrière le 
CALL MUL (dans le programme prin- 
cipal) sans test de parité entre les deux. 


Au départ, le nombre initial est 
stocké sur 15 octets, plus un octet indi- 
quant le nombre d’octets significatifs 
(donc inférieur ou égal à 15) en zone 
NB1. Un appel de SYRAC calcule alors 
la distance dans DIST. Puisqu’en Z80, 
les programmes sont difficilement relo- 
geables, les octets à corriger sont souli- 
gnés. 


La règle d'adoption est simple : selon 
les adresses MEV libres de votre 
système, implantez la routine machine 


| D'APPLIQUER LA 


CONSECTURE THÈQE 


à une adresse multiple de 256, soit 
&Hxx00. Cela se fait simplement en 
remplaçant par &Hxx tous les octets 
soulignés dans la liste. Et cela marchera 
sur votre machine ! 


Vous êtes maintenant capable de 
savoir en moins d’une seconde que la 
distance de 63 728 127 vaut 949. Et 
vous découvrirez des choses étranges, 
par exemple que tous les entiers de 
57 346 à 57 370 ont la même distance 
valant 78 ! 


Il est possible de modifier et d’amé- 
liorer le programme. Voici quelques 
suggestions. Si vous désirez pouvoir 
étudier des nombres plus grands 
encore, remplacez LG EQU 15 par LG 
EQU 7255. Vous pourrez alors aller 
jusqu’à 10614 au lieu de 10%. D'autre 
part, il serait intéressant d’obtenir le 
nombre maximum atteint pendant le 
cheminement vers 1. Ainsi l’entier 
26 623, de distance 307, ne monte-t-il 
pas jusqu’à 106 358 020 ! 


Pourquoi, enfin, ne pas chercher les 
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01 0000 


3 23 0093 3C INC à 

02 0000 3 X#3xY Probleme de Syracuse 24 0094 321F00 LD (L62) , A 

03 0000 3 XHHIX Auteur : Christian BOYER 25 0097 FEOF CP Le 

04 0000 3 ##H4X Copyright t LIST et l’auteur 26 0099 3F CCF 

05 0000 3 27 009A D8 RET  C 

06 0000 P LG: EQU 15 28 0098 3 

07 0000 F LGC: EQU 4 29 009B 3A1F00 MUL25 LD Ar {L52) 3 NE2=NE2+NRT+ 

08 0000 3 30 009E 47 LD H,A 

09 0000 NB: DEFS LG 3 Entier de depart 31 009F 111EQ0 LD LE, LG2-1 

10 O00F L61: DEFS 1 #2 O00A2 212E00 LD HL,L63-1 

11 0010 3 33 0045 37 SCF 

12 0010 NEZ: DEFS LG 34 oùAé 14 MUL3: LD A, (DE> 

13 O01F LG2: DEFS 1 25 0047 8E ADC A, {HL) 

14 0020 5 36 0048 12 LD (DE) ,4 

15 0020 NES+ DEFS LG 37 0049 1B DEC DE 

16 002F LG3: DEFS 1 38 OGAA 2E DEC  HL 

17 0030 3 39 O0AB 10F9 DINZ MULTI 

18 0030 LDEPASS: DEFS 1 3 Depassement 40 O0AD 300€ JR NC; MUL4 

19 0031 DIST: DEFS LGC 3 Distance 41 O0AF 3 

20 0035 3 42 OOAF GEG1 LD As 5 NE2 allonge : 

21 0035 3 ---- Frogramme principal 43 O0B1 12 LD (DE) ,4 

22 0035 3 44 O0B2 341F00 LD a; (LG2» 

23 0035 CDS3çQ SYRAC: CALL INIT 5 Initialisation 45 00B5 3C INC a 

24 0038 CD6CQQ SYRACI: CALL FAIR 5 NB2 pair ? 46 00B6 321F00 LD «L62),A 

25 003B 2805 JR L, SYRAC2 3 Si oui, on saute MUL 47 OBS FEOF CF LG 

26 003D CD7200 CALL  MUL 3 NB2=S#NB2+1 48 O0BB 3F CCF 

27 0040 380H JR C; FROBL 49 OÙEC DS RET  C 

28 0042 CDC100 SYRAC2: CALL DIV 5 NB2=NH2/2 50 00ED 3 

29 0045 3806 JR C; PROEL 51 O0BD CDDFOO MUL4?  CALL  MAJDIS $ DIST=DISI+1 

30 0047 CDEFOQ CALL FINI 5 NE2=71 52 O0C0 C9 RET 

31 004A 20€C JR NZ; SYRAC1 5 Un boucle tant que 53 o0c1 

32 004€ C9 RE 5 different de 1. 54 00c1 SkP  H 

33 004D 3 o1 üoc1 

34 004D 3E01 PROBLI LD CE! 3 Si probleme, DEFASS=1 62 GoCi ÿ —--- NH2=NB2/2 et DIST=DIBT4+1 

35 004F 323000 LD (DEPASS) , À 03 ooÛ1 ; 

36 0052 C9 RET 04 Gi 211FQ0 DIV: LD HL,LG2 5 Recherche ler octet 

57 0083 $ OS QOC4 4€ LD Cy CHU) ; non nul de NEz 

38 0053 3 ---- Initialisation d6 O0CS5 G600 LD &,0 

39 0053 5 ©7 00C7 E7 OR A 

40 0053 111000 INIT: LD DE ; NE2 5 NB2=NBI A8 00C8 EDb42 SBC  HL, RC 

41 0056 210000 LD HL, NEA d9 00CA : 

42 0059 011000 LD BC; LG+1 10 QOCA 7E LD As CHL) 5 ler octet = 1 ? 

43 00SC EDBO LDIR 11 QOCE FEO1 CF 1 

44 OOSE 3 12 0OCD 2005 JR N2»DIVI 

45 00SE 213100 LD HLs DIST 3 LISI=0 13 COCF ; 

46 0061 0604 LD By LGC 14 GOCF 79 Lo CHA 5 Si oui, modif LU. 

47 0063 AF XOR A 15 6ODO 3D DEC 4 

48 0064 77 INIVIA: LD tHL),4 16 OOD1 321F00 LD (LG2).A 

49 0065 23 INC HL 17 OGOD4 — 3 

50 0066 10FC DUN2 INI(I 18 OÙD4 41 DIVIE LD B,C 5 NBZ=NB2/2 

51 0068 323000 LD (DEFASS) , À 3 DEFASS=0 19 0ODS E7 OR FA ä 
52 0068 C9 RET 2ü GODé CRIE DIV2: RAR CHL) 

55 006c ; 21 G0DB 23 INC HL 

54 006€ 3 —--- NBZ est-1l pair ? 22 d0D9 10FH DJNZ DIV2Z ( 
55 006€ 3 23 60DB 3 

Sé 006C 3A1EQO PAIRS LD fs (LG2—1) 24 GODB CDDFOO CALL  MAJDIS 5 DISI=DIS1+1 

57 GO6F E60i AND 1 25 OODE C9 — RET 

58 O071 C9 RET 26 O0DF ; { 
59 0072 3 27 O0DF 3 —--- DIST=DIST+1 

60 0072 SkE  H 28 O0DF 

01 0072 3 29 OÙDF 213500 MAJDIS: LD HL; DIST+LGC 4 
02 0072 3 ———- NBZ=SANE2+1 et DIST=DIST+1 30 O0E2 25 DEC  HL 

0% 0072 3 31 OOES 37 SCF 

04 6072 3A1F00 MUL: LD A5 (LG2) 5 NES=NE2 32 G0E4 0604 LD B, LGC d 
05 0075 4F LD CA 3$ 00E6 7E MAJi: LD As CHL) 

26 0076 0600 LD &, Q 34 OV0E7 CEO0 ADC  A,0 

07 0078 03 INC BC 35 O0ES 77 LD (HD), 4 d 
28 0079 112E00 Lo DE,LG3-1 36 O0EA DO RET NC 

09 007€ 211EQ0 LD HU; LG2-1 37 00EE 2B DEC  HL 

10 007F EDB8 LDDR 38 OGEC 10F8 DONZ MAJI 

11 0081 ñ 39 O0EE C9 RET 1 
12 0081 47 LD B,A 3 NH2=24NEZ 40 O0EF ñ 

13 0082 211E00 LD HL,LG2-1 41 OOEF 3 ---- Est-ce que NB2 = 1 ? 

14 0085 B7 OR a 42 OCEF Û 1 
15 0086 CBi6 MULIE RL HD) 43 OGEF SA1F00 FINI: LD A5 (L62) s 

16 0088 28 DEC HL 44 O0F2 FEO1 CP 1 La liste 

17 0089 10FE DJNZ MULI 45 00F4 Co RET NZ 

18 0088 300€ JR NC: MUL2 46 0OFS SA1E00 LD A: (LG2-1) du programme d 
19 008D 3 47 Q0FB FEO1 CF 1 

20 008D 3E01 LD as 5 NE2 allonge 48 O0FA C9 RET en assembleur du Z80 

21 O0BF 77 LD CHU), A 49 QO0FH ; 

22 0090 3A1FQ0Q LD As (LG2) 50 GOFE END 


records de distance. Cela commence 
ainsi : 


Si vous ne possédez pas d’assembleur, le langage-machine peut être introduit par 
DATA avec le programme Basic ci-dessous, éventuellement adapté aux particularités 
de votre ordinateur. 


So AD=&HO0000 

10 REM *XXx* Chargement langage machine 

20 FOR I=8HES TO &HFA 

320 READ J:FOKE AD+1,9 

40 NEXT I 

30 DATA LHCD ; LHST s EHOO » LHECD 3 LHGC 3 LHQQs sus x 
D1 DATA sssssvssassucecessoscentvetensseress sur as 
JB DATA susssosamesertsenconece sentant ess dcous 
59 DATA use LHSAs LHIE » SHOO, LHFE ; &HO1 , &HC 
60 REM *Xk*x Introduction du nombre 

79 FOR I1=0 TO 14:FOKE AD+I:O:NEXT I 

80 INFUT “Nombre ";N 

90 Leo 

100 F=INT(N/256):POKE AD+14-L,N-256%P 

110 N=PiL=L+1:IF N€>O THEN 100 

120 FOKE AD+15,L 

130 REM XxXkXx Calcul et resultat 

140 CALL (AD+8&H3S) : D=O 

180 IF PEEK(AD+&H30)=1 THEN FRINT"Depassement ":G0710 
160 FOR I=RKH31 TO 8&H%4: D=256XD+PEEK (AD+I):NEXT I 
170 PRINT'“Distance "s5D 

180 GOTO 60 


On peut, sans difficulté, modifier le 
programme en assembleur pour qu’il 
effectue la recherche systématique de 
ces records. Et peut-être trouverez-vous 
même le fameux « contre-exemple » ne 
convergeant pas vers 1, et qui vous ren- 
drait célèbre ! 


Christian BOYER 
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et 


Logo est associée la notion de 
“micro-mondes"” dont le plus 
célèbre est lié aux commandes d'un 
curseur graphique nommé “‘tortue””. 
Maïs il y à aussi le micro-monde 
des nombres, des mots, de la tortue 
dynamique qui obéit aux lois de Newton, de la 
mécanique orbitale ou plus simplement de la 
musique et des lutins. Méme si Logo est accessible 
à de très jeunes enfants, c'est un langage puissant. 
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Beaucoup d’articles sur Logo 

présentent ce langage comme un 
outil de communication destiné aux 
enfants et aux enseignants dans un con- 
texte pédagogique. Les élèves construi- 
sent leurs connaissances, pas obligatoi- 
rement informatiques, en ‘‘éduquant”? 
une machine bêtement logique. Oui, 
Logo a été conçu pour cela. Mais Logo 
est aussi un remarquable langage de 
programmation. On peut adopter, 
grâce à lui, des modes de raisonnement 
différents de ceux auxquels nous habi- 
tuent des langages comme Basic ou 
LSE. 


En Basic, par exemple, la résolution 
de votre problème passe le plus souvent 
par l’écriture d’un programme monoli- 
thique dont chaque ligne doit être 
numérotée. Un ensemble de lignes exé- 
cuté fréquemment peut être groupé en 
sous-programme, donnant aux instruc- 
tions GOTO et GOSUB un rôle privilé- 
gié dans la structuration de votre pro- 
gramme. Dans un langage de type 
Logo, chaque action est décrite sous 
forme de procédures indépendantes, 
possédant un nom. Un programme est 
un enchaînement d’appels à des procé- 
dures clairement identifiées. Le 
GOSUB 500 devient par exemple 
ENTRER.NOMBRE. 


Notre objectif n’est pas d’aborder le 
B.A.-BA du langage Logo, que vous 
trouverez par ailleurs dans d’autres 
articles ou dans le manuel accompa- 
gnant chaque version. Ce manuel est en 
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RAPPEL DE LA SYNTAXE LOGO 


LE est un langage procédural. Les procédures disponibles à l’initiali- 
sation sont appelées primitives. Celles que vous créez sont nommées 
procédures. Une procédure commence par le mot POUR et se termine par 


FIN. 


En Logo, un nombre est écrit tel quel, éventuellement précédé d’un signe. 
Un mot est toujours précédé de guillemets (on ne referme pas les guillemets 
à la fin du mot). Une liste est encadrée de crochets carrés []. Les noms de 
variables, qui ne sont pas liés à leur contenu, sont des mots. Le contenu de la 


variable ‘‘A est :A. 


général bien fait, et bien traduit pour 
les versions importées. Dès ce premier 
numéro de LIST, nous nous proposons 
d’analyser des modes de raisonnement 
et des programmes de façon à ce que 
chacun puisse exploiter au mieux les 
richesses de l’un des premiers langages 
de type ‘‘intelligence artificielle” acces- 
sible sur les ordinateurs individuels. 


Il est toujours possible d’appliquer à 
Logo les schémas de pensée classiques 
liés aux langages de programmation de 
type Basic. Le résultat : des program- 
mes longs avec beaucoup de variables 
inutiles, qui n’exploitent pas la récur- 
sion ou le passage des paramètres par 
noms ou valeurs. Mais arrêtons-nous 
justement sur la récursion. Nous ver- 
rons une autre fois d’autres caractéristi- 
ques de Logo. 


La définition la plus courte de la 
récursion est sans doute celle donnée 
par certains dépliants publicitaires 
d’origine québécoise. Récursion : voir 
Récursion.. On peut aussi la définir 
comme l’art de recommencer la même 
chose, éventuellement dans des condi- 
tions différentes. Une procédure 
récursive contient toujours au moins 
un appel à elle-même : 

POUR ECRIRE.SANS.FIN 
AFFICHE [JAIME LOGO] 
ECRIRE.SANS.FIN 

FIN 


Procédure que d’autres 
écrite, sans récursion : 
10 PRINT ‘‘J’AIME BASIC” 
20 GOTO 10 

En fait, ECRIRE.SANS.FIN utilise 
la récursion dite ‘‘terminale”’ sans 
changer les conditions initiales. C’est 
une itération sans grand intérêt. Voici 


auraient 
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un autre cas de récursion terminale : 
POUR DOUBLER :A 

AFFICHE :A 

DOUBLER MOT :A :A 

FIN 


La ligne DOUBLER MOT :A :A 
rappelle la procédure DOUBLER en 
prenant comme paramètre le résultat 
de l’instruction MOT :A :A qui sup- 
pose que le contenu de la variable 
locale ‘A est un nombre ou un mot, 
et concatène ce contenu à lui-même. 
Nous n’avons pas besoin de créer de 
variable ‘‘A, ni de lui affecter à cha- 
que appel le résultat de la concaténa- 
tion. 


Un programmeur ‘‘classique”” 


s’arrête jamais. Il faut donc se méfier 
des procédures récursives, et toujours 
introduire un test d’arrêt, en général 
comme première instruction. Par 
exemple : SI COMPTE :A > 7 
ALORS STOP 


La récursion non terminale est un 
appel à la procédure elle-même avant 
sa fin. Pour bien la comprendre, il 
vous faut maîtriser les deux exemples 
que voici. 


Exemple n° 1 : 
POUR ALIGNER :M 
SI VIDE? :M ALORS STOP 
AFFICHE PREMIER :M 
ALIGNER SAUFPREMIER :M 
FIN 


Exemple n° 2: 
POUR ALIGNERI :M 
SI VIDE? :M ALORS STOP 
ALIGNERI SAUFPREMIER :M 
AFFICHE PREMIER :M 
FIN 

Dans le deuxième exemple, 
ALIGNERI, les deux dernières lignes 
de ALIGNER sont interverties, ce qui 
nous donne à l’écran : 
Exemple n° 1 Exemple n° 2 


M T 
O O 
T M 


Le tableau ci-dessous explique la 
différence des résultats obtenus avec 
les deux programmes. 


Les deux procédures pas à pas 


ALIGNER ‘MOT 


SI VIDE? ‘ MOT ALORS 


STOP 

AFFICHE PREMIER ‘MOT 
M 

ALIGNER ‘‘OT 


SI VIDE? “OT ALORS STOP 
AFFICHE PREMIER ‘‘OT 


O 
ALIGNER ‘T 


ALIGNERI ‘MOT 

SI VIDE? ‘MOT ALORS 
STOP 

ALIGNERI ‘OT 

SI VIDE? ‘OT ALORS STOP 


ALIGNERI “T 
SI VIDE? “T ALORS STOP 
ALIGNERI ‘ 


SI VIDE? ‘ ALORS STOP 
AFFICHE PREMIER ‘TT 


SI VIDE? “T ALORS STOP T 


AFFICHE PREMIER ‘T 


T 
ALIGNER ‘‘ 


AFFICHE PREMIER ‘‘OT 
O 
AFFICHE PREMIER ‘‘MOT 


SI VIDE? ‘* ALORS STOP M 


Terminé 


Terminé 


aurait écrit par exemple : 
POUR DOUBLER :A 
AFFICHE :A 

DONNE ‘‘A MOT :A :A 
DOUBLER :A 

FIN 


Ce qui est correct, mais inutilement 
long. Faisons un essai : 
DOUBLER ‘‘TUT 
TUT 
TUTTUT 
TUTTUTTUTTUT 
TUTTUTTUTTUTTUTTUTTUTTUT 


L’exécution de la procédure ne 


Imaginons maintenant la procédure 
ALIGNERI ainsi modifiée : 

POUR ALIGNERI :M 

SI PREMIER :M = 
STOP 

DONNE ‘M SAUFPREMIER :M 

ALIGNERI :M 

AFFICHE PREMIER :M 

FIN 


La première ligne diffère de la pré- 
cédente en ce sens que la procédure 
s’arrête lorsque le paramètre ne con- 
tient plus qu’un seul caractère qui, en 
principe, ne doit pas s’afficher. Elle 
contient aussi une affectation qui 


:M ALORS 
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remplace le contenu de ‘M par son 
ancien contenu amputé de son pre- 
mier caractère. La nouvelle procédure 
ne semble pas très différente de 
l’ancienne. Et pourtant, exécutons- 
la : 

ALIGNERI ‘‘CHAT 

LE 


d 
T 


Aviez-vous prévu ce résultat ? C’est 
pourtant très simple. Dans le premier 
cas, l’affectation DONNE ‘‘M SAUF- 
PREMIER :M est implicite dans 
l’appel ALIGNERI SAUFPREMIER 
:M, mais le paramètre est une 
variable locale créée à chaque appel, et 
elle est indépendante de la variable 
locale ‘M de la procédure appelante, 
bien que son nom soit identique. La 
variable ‘M a donc une identité et une 
valeur dans chaque appel, ce qui per- 
met d’exécuter correctement les affi- 
chages lorsque le dernier appel 
entraîne l’exécution de la primitive 
STOP. 


Par contre, dans le second cas, la 
primitive DONNE entraîne pour la 
variable ‘M un statut de variable glo- 
bale. Sa dernière valeur étant ‘‘T, elle 
la conserve pour toutes les procédures 
appelantes, qui sont au nombre de 
trois : ALIGNERI ‘‘CHAT, 
ALIGNERI ‘HAT et ALIGNERI 
“AT. C’est pourquoi nous avons 
obtenu l'affichage de trois T. 


Cet exemple n’est pas neutre car, si 


vous avez pratiqué d’autres langages 
de programmation, par exemple 
Basic, vous garderez une tendance à 
vouloir affecter des valeurs à toutes 
vos variables, et vous obtiendrez par- 
fois, en Logo, des résultats 
“bizarres” du style factorielle S est 
égale à O. 


Le raisonnement inverse est égale- 
ment vrai, car lorsque vous aurez 
compris la puissance de la notion de 
paramètre, vous vous étonnerez des 
résultats produits par des procédures 
qui sont censées modifier des don- 
nées, et qui les conservent intactes 
après traitement. Attention : distin- 
guez bien ce qui est local, recréé à 
chaque appel et inconnu en dehors de 
la procédure qui le traite, de ce qui est 
global. En Logo, il faut s’habituer à 
ce qu’un même nom de variable 
puisse représenter des choses différen- 
tes, et à ce que plusieurs noms diffé- 
rents représentent la même chose. Le 
tout est de bien contrôler qui fait 
quoi, à quel moment, sur quel type 
d'informations. 


Avant d’examiner ensemble les 
petits problèmes que vous n’arrivez 
pas à maîtriser et qui pourraient faire 
l’objet de thèmes d’études dans les 
prochains numéros, voici quatre pro- 
cédures à méditer. Bien sûr, il vous 
suffit de les taper pour comprendre ce 
qu'elles font. Malgré les initialisations 
nécessaires, elles ne contiennent 
aucune affectation. (Et j’espère bien 
que certains d’entre vous me soumet- 


tront leurs propres procédures.) 


POUR DESSIN 

AVANCE 2 DROITE 5 

SI CAP = 0 ALORS STOP 
DESSIN 

AVANCE 10 GAUCHE 5 
FIN 


POUR AA :L1 

SI :L1 = [] ALORS AFFICHE 
:L1 STOP 

BB :Li{] 

FIN 


POUR BB :L2 :L3 

SI :L2 = [] ALORS AFFICHE 
:L3 NIVEAUSUP 

CC :12 :L3[] 

FIN 


POUR CC :L4 :LS5 :L6 

SI :LS = [] BB SAUFPREMIER 
:L4 PHRASE PREMIER :Lé :LS 

SI PREMIER :L4 > DERNIER 
:L5 ALORS BB SAUFPREMIER :L4 
(PHRASE :L5 PREMIER :L4 :Lé) 
SINON CC :L4 SAUFDERNIER :LS5 
DERNIER :LS :L6 

FIN 


Il y a deux choses à savoir ici. La 
première est que la primitive 
NIVEAUSUP permet de revenir de 
n'importe quel niveau de récursion 
sans repasser par les niveaux intermé- 
diaires (essayez STOP à la place, et 
vous apprécierez la différence). 
Seconde remarque : ces procédures 
sont écrites en Edi Logo ; adaptez-les 
à votre version. Sachant cela, 
pouvez-vous décrire l’action de la 
procédure AA ? Pour l’une des trois 
procédures, une ligne n’est pas néces- 
saire. Laquelle ? Enfin, il reste une 
petite bogue. Sauriez-vous la trouver 
et la corriger ? 


Robert D'AGUESSE 
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COMMENT DÉTERRER 


8 KO DE 


HARP 4 toujours annoncé que le PC-1251 
était doté de 24 Ko de mémoire morte. 
Vous connaissez peut-être les 16 Ko 
que l'on trouve aux adresses 16384 à 32767. 
Mais comment dénicher les 8 Ko manquants ? 
L'instruction PEEK reste en effet inopérante… 


gl Dans le récent manuel du 

langage-machine PC-1251 (1), le 
constructeur indique que 96 octets de 
mémoire vive (MEV) et 8 Ko de 
mémoire morte (MEM) sont physique- 
ment inscrits à l’intérieur même du pro- 
cesseur SC-61860. Malheureusement, 
on ne peut pas lire cette mémoire morte 
en utilisant PEEK. L'’instruction LDD 
du langage-machine reste elle aussi sans 
effet, le registre DP ne pointant que 
vers la mémoire externe au processeur. 
La situation paraît donc bloquée. 


Et pourtant, dans le tableau des ins- 
tructions (page 94 du manuel de réfé- 
rence), on trouve la curieuse 
« DATA » — à ne pas confondre avec 
le DATA du Basic. Cette instruction 
est codée 53 en système décimal, soit 
&35 en hexadécimal. Dans la suite de 
ce texte, nous emploierons le préfixe & 
pour signaler qu’une valeur est expri- 
mée dans cette dernière notation. Mais 
revenons à la fameuse instruction 
DATA dont le manuel, bizarrement, ne 
dit rien. 

En fait, DATA permet de transférer 
un bloc de 1 +1 octets vers la mémoire 
vive (MEV) interne au processeur, et 
cela de la façon suivante : 

(P) <(B, A) 
P <P +1 


(1} Se reporter à la page 28 du présent numéro 
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MÉMOIRE MORTE 


(PCI 


CALOOnn à CALIFnn (notez bien CAL 
avec un seul L). 


Bien entendu, une fois l’octet 
demandé transféré dans la MEV interne 
du processeur, il faut encore pouvoir le 
transférer dans la MEV externe. Alors 
seulement, un PEEK permettra de le 
lire. La seule façon de faire est appa- 
remment d’utiliser « EXWD » qui 
échange un bloc de I + 1 octets entre ces 
deux zones de mémoire vive. Le tout 
débouche sur le programme suivant : 


LIB xx 
LIA yy 
LP 20 
LII 00 
DATA 
LIDP COFF 
LP 20 


l’octet à lire se 

;situe en xxyy 

:20 pour ne pas perturber la pile 
;bloc d’un octet 

;(P) + (B, À) 


résultat en COFF 
;on relit en 20 
LII 00 ;bloc d’un octet 
EXWD :(DP) + (P) 

RTN ;fin 


B, A <B, A +1 D'où le programme Basic : 
I el: 10 POKE &C100, &03, &00, &02, 

Cette procédure se répète jusqu’à ce &00, &A0, &00, &00, &35 
que I ait pris la valeur &FF. Or il 20 POKE &C108, &10, &CO, &FF, 
s'avère que DATA permet de tout &AO, &00, &O00, &19, &37 
transférer : l’octet pointé par les regis- 30 INPUT « ADRESSE ? » ;A 
tres B et A du processeur peut apparte- 40 X = INT (A/256): Y = A — 
nir à la MEM externe ou interne. Nous 256 * X 
sommes sauvés ! C’est probablement la 50 POKE &CI101, X : POKE &C103, 
seule instruction donnant accès à la Ÿ 
MEM interne. L’appel de sous- 60 CALL &C100 
programmes se fait simplement par les 70 PRINT « PEEK » ; À ; « = » ; 
codes &EOnn à &FFnn qui sont des PEEK &COFF 

ni de. 80 GOTO 30 


Grâce à ce programme, vous décou- 
vrirez que la mémoire morte du 
système commence ainsi : 


0000 4E AO WAIÏIT AO ;78,160 
0002 02 01 LIA OI :2,1 
0004 12 SF LIP SF :;18,95 
0006 DB EXAM 5219 
0007 DF OUTC 223 


Suivent 8184 octets que vous pouvez 
désassembler si vous avez l'âme d’un 
explorateur... 


Bernard BOUVIER 


© N°1- JUILLET AOÛT #4 


|. 


LA BOÎTE 
À MALICES... 


RENEZ un programme et ôtezx-en tres 
soigneusement toutes les astuces, des plus 
élémentaires aux plus subtiles. Vous êtes certain de 
n'en avoir laissé passer aucune ? Bien. Que reste- 
t-il ? Rien, ou peut-être une bogue ou deux (tout 

le monde peut se tromper). En fait, tout 
programme n'est qu'une suite d'astuces. Dans les 
pages qui suivent, vous en trouverez un grand 
nombre. Certaines sont de portée très générale. 
D'autres ne valent que pour un matériel 
particulier. Maïs dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boite à 
malices. Méme s'il ne s'agit pas de votre machine, 
vous trouverez souvent des idées à reprendre. Par 
ailleurs vous avez sans doute vos propres recettes, 
vos façons de faire... Si ce ne sont pas des secrets 
que vous cherchez à conserver jalousement, faites 

en part au journal. Celles qui nous paraïitront 

les plus intéressantes enrichiront à leur tour la 
boîte à malices. Tous les lecteurs pourront ainsi en 


profiter. 


LIST 
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FX-702 P 


COMMENT 
« EFFACER » 
UN BLANC 


Sur le FX-702P, une ligne telle 

que : 10 A = 8: PRT CSRO ; A 
aura pour effet d’imprimer le chiffre 8 
sur la deuxième matrice de l’écran. 


La première matrice est réservée au 
signe et celui-ci n’apparaît que s’il est 
négatif. 

Un moyen de faire imprimer 8 sur la 
première matrice est : 

10 A=8 : PRT CSR 0 ; # ; A 
Ce moyen n’est pas applicable sur le 


PB-100. | 
Sylvain CLEMENT 


ALICE 


QUELQUES 
FACÊTIES 


Alice dispose, en version de base, 

de huit couleurs, qui sont en fait 
considérées comme des caractères gra- 
phiques particuliers. Les codes 128 à 
255 sont ainsi réservés aux caractères 
graphiques, regroupés par couleur. Ces 
caractères peuvent donc être obtenus 
soit par un CHRS(n), soit directement 
dans un PRINT ou dans une chaîne de 
caractères. Mais, dans ce dernier cas, 
ils n’apparaîtront pas lors du listage 
d’un programme. On peut contourner 
cet inconvénient de deux façons au 
moins. 


Première méthode (un peu lourde) : 
ajouter à chaque ligne faisant appel à 
un affichage graphique en couleur une 
remarque précisant les touches utilisées. 

Aüinsi, on écrira: B$ = ‘‘888’ : 
REM couleur 8, Shift Z, puis Shift R et 
Shift S. Ou bien encore PRINT 
‘“464”” : REM couleur 4, Shift Q, cou- 
leur 6, Shift Q, couleur 4, Shift Q. 


Deuxième méthode, beaucoup plus 
simple à mettre en œuvre : on prendra 
soin, en début de programme, de défi- 
nir les variables alphanumériques dont 
on aura besoin par la suite pour faire 
des dessins. 


On écrira par exemple: A$ = 
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CHRS(255) : B$ = CHR$(239), etc. 
Pour utiliser le graphisme, il suffira 
d'écrire : PRINT A$ B$ A$. On peut 
remarquer au passage que le ‘‘;”? 
(point-virgule) n’est en fait pas néces- 
saire, ce qui allège beaucoup l'écriture 
d’un programme. 


L'extension de mémoire vive 16 Ko 
devrait être disponible très prochaine- 
ment. Elle s’enfiche derrière l’appareil 
(à la manière des extensions du ZX 81), 
et elle sera livrée avec un manuel 
‘“Aller plus loin avec Alice”. Dans les 
particularités intéressantes offertes par 
cette extension, figurent la possibilité 
de faire du graphisme haute résolution, 
l’amélioration des sauvegardes sur cas- 
sette et des possibilités de programmes 
en assembleur. 


À propos de graphisme haute résolu- 
tion, avez-vous déjà essayé de faire un 
POKE à une adresse comprise entre 
32768 et 49151 ; essayez par exemple 
POKE 32768,34 ou une autre valeur ; 
vous obtiendrez des affichages très 
curieux ; un POKE 32768,0 vous per- 
mettra heureusement de tout remettre 
en ordre. 


De la même façon, des POKE dans 
les quatre premiers octets provoquent 
des réactions bizarres ; essayez par 
exemple POKE 0,23 ou POKE 1,32 et 
regardez ce que deviennent les touches 
du clavier. Plutôt curieux, non ? Qui 
pourra nous donner les raisons de ces 
comportements fantaisistes ? 


Jacques DECONCHAT 


CANON X-07 
UNE TABLE DES MATIÈRES 


Een Voici un utilitaire qui affiche à 

l'écran du X-07, par pages suc- 
cessives, la liste des programmes en 
mémoire et permet de lancer l’exécu- 
tion du programme retenu par simple 
pression sur une touche. 


Les touches À et W servent à chan- 
ger de pages (le nombre total de pages, 
ainsi que le numéro de la page courante 
sont toujours indiqués en haut de 
l’écran). Pour lancer un programme, il 
suffit d'appuyer sur le chiffre qui lui 
est associé à l’affichage. Pour quitter 
ce programme, on frappe la touche 
‘Q’, comme ‘‘quitter”’. 


Patrick LECLERCOQ 
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12 DEFFNPCX)=PEEKCX)+PEEKCX+13%256 

15 CLS:OINMT$C2@):'Nb max, de fichiers 

12 PRINT'"Une seconde SUP" 

28 GOSUB1908 :NE=X:’LECTURE DES NOMS DEFI 
CHIERS 

3 NP=INTCNE/6) : IFNEMOD6OBTHEN NP=NP+] 
48 GOSUBSQ08 :’Affichage de la page coura 
nte 

54 GOSUB5000 :’Attente des ordres et exec 
ution 

68 GOT048 

1880 A=FNPC528) :X=1:T$(0)="Basic" 

1819 IFPEEKCAJ=QTHENRETURN:? Fin de la z 
one fichier 

1028 E=A+6:IFPEEKCE) > 88THEN1GS@ELSE I <A: 
A$="":F=0:Test sur l’extension 

1848 N=PEEKCIJ:IFN=320RI=ETHEN1980 

1850 A$=A$+CHR$SCN)I : I=I1+1:GOTO01048 

188@ TSCX)=A$ :X=X+1 

1998 A=A+FNPCA+?) :GOTO01810:’Lecture de | 
adresse du fichier suivant 

3000 REM AFFICHAGE DES NOMS 

3828 CLS:X=PC+1:PRINTTAB(C6) ;"Page "5 :PRI 
NTUSING"#" 3%; 

3838 PRINT"/"3:PRINTUSING"#4" ;NP 

3049 FORL=@TOZ2:FOR2=0TOI : IFCGEXPC+2XL+2)= 
NETHENL=2:2=]ELSEGOSUB6000 

305@ NEXT:NEXT :RETURN 

5eee F-0 

5825 A$=INKEYS$S:IFA$=""THENS@OSELSEA=ASCC 
À$) : IFPC=DANDA=48THENCLS : END 

5810 IFA>47ANDAKSSTHENAS=TS(GXPC+A-48):R 
UNAS 

Sa28 IFA=3SBANDPC © BTHENPC=PC-1:F=1 

5030 IFA=S1ANDPC+1 CNPTHENPC=PC+1:F=] 
5048 IFA$="Q"THENCLS :END 

S05@ IF F=1ITHEN RETURN ELSE 5025 

6000 REM AFFICHAGE D'UN NOM DE PROGRAMME 
6818 LOCATEZ%18,L+1:PRINTTS$SCPCXG6+LX2+2) ; 
6@2@ LOCATEZXIQ+6,L+1:X=2%XL+2:PRINT"<";: 
PRINTUSING"#";X%x 3; :PRINT">" 3 :RETURN 


TI-57 LCD 


UNE PAUSE A 
DURÉE 
VARIABLE 


La fonction Pause de la TI-57 

LCD est bien sûr très utile mais 
elle a l’inconvénient de ne pas être 
réglable. Impossible de choisir pendant 
combien de temps l’affichage doit per- 
sister. 


Imaginons que l’on veuille program- 
mer une horloge pour cette machine et 
faire afficher heures et minutes pendant 
60 secondes, sans interruption : la 
fonction Pause n’est là d’aucun 
secours. 


Une solution simple, certainement 
adaptable à d’autres poquettes, consiste 
à réaliser une boucle vide à l’aide de 
Dsz. Et la longueur de la boucle est 
réglable. 


Ainsi, le petit programme : 


STO + 1 
RCL 1 
LBL 0 
Dsz 
GTO 0 
RST 
permettra de voir la machine compter 
avec des pauses d’une minute. 


Raoul LEBASTARD 


PC-1500 


AU BOUT DU 
ROULEAU ° 


L’imprimante CE-150 de l’ordi- 

nateur Sharp PC-1500 ne possède 
pas de touche spéciale pour rembobiner 
le papier dévidé. Seule l'instruction 
LF — n permet de remonter de n lignes en 
arrière. Mais pas plus de 10 cm ! Un dis- 
positif de comptage interne y veille. 


A ce jour, une seule méthode existait 
pour rembobiner malgré tout : LF-23 
(en taille 2), OFF qui remet à zéro ce 
compteur de centimètres et ON pour 
recommencer. Il faut ajouter à ces 
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tnt den db sé 


nt nn Sn PR Den ps bu lun tnt Em 


M Es bd 


manœuvres le temps perdu à regarder 
l’imprimante faire valser ses stylos (ini- 
tialisation) et à débiter cinq lignes de 
papier blanc ! Il faut recommencer 20 
fois l’opération pour rembobiner 2 
mètres de papier seulement. 

Tout ceci est très dangereux pour la 
machine étant donné l’état induit sur les 
nerfs du propriétaire... Si, comme moi, 


vous êtes au bout du rouleau, le petit 
programme suivant supprime d’un coup 
nos problèmes d’hyper-irritabilité en 


autorisant le recul «illimité» du 
papier : 

10:°’K’’:TEXT:CSIZE 2:I1F 
INKEY$<>’’ ’’POKE 


31204,0,1:LF—23:GOTO ”’K 
20:POKE 31204,0,1 


APPEB'IT 


Faire DEF K et garder cette touche 
enfoncée. Tant que vous pressez, le 
papier recule. Relâchez et c’est fini. 
C’est le POKE 31204,0,1 qui remet le 
compteur à zéro, le reste du programme 
est sans surprise, classique. La ligne 20 
est facultative. 


David ROUSSEAU 


LE CHAÎN AGE DES PROGRAMMES 


APPLESOFT 


Il existe plusieurs moyens de 

chaîner des programmes en 
Applesoft : le plus simple consiste à 
terminer le premier programme par 
l’appel du second. Cela marche parfai- 
tement mais présente l’inconvénient de 
perdre toutes les données du premier 
programme. 


La deuxième solution est d'employer 
CHAIN, un utilitaire Apple en langage 
machine qui figure sur la disquette 
DOS MASTER 3.3. Pour chaîner 
PROGRAMMEI avec PROGRAM- 
ME2 sans perdre les valeurs des varia- 
bles, il faut que CHAIN figure sur la 
même disquette que PROGRAMME! 
et PROGRAMMEZ (on transférera 
CHAIN avec FID, un autre utilitaire 
Apple). Il faudra alors insérer les deux 
lignes suivantes : 

… PRINT CHRS(4) ; 
CHAIN,. A520 
.… CALL 520 ‘‘PROGRAMMEZ2”’ 


Malheureusement, si ce procédé mar- 
che fort bien, il est en revanche très 
lent à l’exécution lorsque PROGRAM- 
MEI est long ou comporte beaucoup 
de données. 


‘‘BLOAD 


Il existe une troisième façon de faire 
beaucoup plus efficace maïs qui néces- 
site un minimum de précautions. Rap- 
pelons tout d’abord quelques générali- 
tés sur la façon dont l’Applesoft gère 
ses variables et ses programmes : 

+ les adresses du début et de la fin du 
programme sont stockées dans les poin- 
teurs $67-$68 et $SAF-SBO ; 

e les adresses du début et de la fin du 
stockage des données sont en $69-570 
et $S6D-$6E et les adresses du début et 
de la fin du stockage des chaînes de 
caractères en $6F-$70 et $73-$74. 


Un RUN remettant ces pointeurs à 
zéro, une solution évidente consiste à 
stocker les valeurs de ces pointeurs 
dans une zone protégée et à faire un 
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Exemple de chaînage 


Programme 1 


S PRINT CHR$ (4)"BLOAD CHAIN" 
10 À$ = 
memoire 
20 À = 
30 AZ = 
40 
50 
60 


10.01 
12 


PRINT CHR$ (4)"RUN PROGRAMME2" 


Programme 2 


10 
20 
40 


LOMEM: 2208 
CALL 791: REM 


A l’exécution, Programme 3 


on obtient : 


Auteur Philippe François 
RUN PP LA 


A$=TOTO 

A=10.01 

AZ=12 ä 
DEBPROÜG EQU 

A#$=TCTO & 

“=10.01 

A4=12 


DRG 
9BJ 


#50 
+300 


$AF 


LDX 
LDA 
STA 
DEX 
LA 
EL] 
DEX 
LDA 
STA 
DEX 
BPL 
RTE 


#$OF 


LABEL1 Fé7,X 


LABEL 1 


RUN du deuxième programme dont la 
première instruction sera naturellement 
de faire appel à un sous-programme 
régénérant ces pointeurs. Il faudra 
aussi naturellement que les deux pro- 
grammes aient la même longueur appa- 
rente. On cherchera la plus grande lon- 
gueur (par un CALL-151 et un examen 
du pointeur correspondant $AF-$BO) 
puis on fixera la longueur du plus petit 
par un LOMEM correspondant. 

Une dernière précaution : si, dans le 
programme, une chaîne de caractères 
est initialisée par une instruction du 
type A$ = ‘“TOTO”, ‘TOTO”’ ne 
sera pas stockée dans la partie haute de 


DEBPROG+1 
STOCK,X 


DEBPROG 
STOCK, x 


STOCK ,X 


MID$ ("TOTO",1): REM force le stockage de "TOTO" en haut 


PRINT "A$=";A$: PRINT “A=";A: PRINT “AZ=" ;A% 
CALL 768: REM Sauvetage des pointeurs 


adresse du programme de regeneration 
PRINT "A$=";A$: PRINT "A=";A: PRINT "AZ=";A% 


Langage-machine (Applesoft) 


Copyright LIST et l’auteur 


LDX 
LDR 
STA 
DEX 
LDA 
STA 
DEX 
LDA 
STA 
DEX 
BPL 
RTS 


#$OF 
STICK ,X 
DEBFROG+1 


STOCK ,X 
DEBPROG 
LABEL2 STOCK ,X 
$6é7,X 


LBEL2 


# 
STOCK HEX 0000000000000000 


HEX 0000006000000000 


la mémoire comme les chaînes habituel- 
les, mais le pointeur de chaîne indi- 
quera l’adresse effective de ‘‘TOTO”’ 
(en plein programme Applesoft) et, 
lorsque le deuxième programme aura 
remplacé le premier, ce pointeur poin- 
tera sur n’importe quoi ! La solution 
consiste à remplacer ce genre d’initiali- 
sation par A$ = MIDS$ (‘‘TOTO”’,1) qui 
force ‘‘TOTO”’ à aller se placer dans la 
bonne zone. 


On trouvera ci-dessus un exemple de 
chaînage réalisé de cette façon ainsi que 
le programme machine correspondant. 


Philippe FRANÇOIS 


LIST - PAGE 79 


PC-1211 


CONVERTISSEUR DÉCIMAL BINAIRE 


Er Il vous est sûrement arrivé 

d’avoir à décomposer un nombre 
en éléments binaires. Le nombre prend 
alors la forme N=2x1+22+2xX3+... + 2x0 


Si N=70 par exemple, on a: 
N=2'+2?+25 soit égal à 2+4+64=70 

Le programme de conversion établi ici 
pour PC-1211/PC-1212/PC-1 (de préfé- 
rence avec imprimante) permet de résou- 
dre des variantes de ce problème, en par- 
ticulier le classement des puissances de 
deux. 


Tout d’abord, deux petits utilitaires 
indépendants du programme (lignes 500- 
550 et 600-650) affichent les valeurs suc- 
cessives des exposants de 2, en mode 
DEF et l’imprimante branchée : par 
SHFT C(C pour « croissant »), dans 
l’ordre croissant — dans notre exemple 
1, 2,6 ; par SHFT D(D pour « décrois- 
sant »), dans l’ordre décroissant — dans 
notre exemple 6,2,1. 


Convertisseur décimal binaire 


Chacun de ces deux utilitaires repose 
sur un algorithme spécifique : le premier 
est très connu, le second, relatif aux 
exposants décroissants, un peu moins. 
Nous ne les reproduisons pas, les lignes 
des programmes décrivant clairement les 
processus. 


La première partie du programme 
(lignes 10 à 430) exploite ces deux utili- 
taires pour imprimer sous forme de 
tableau non seulement les valeurs des 
exposants de 2 (appelées X), mais aussi 
les valeurs des nombres 2* (appelées Y), 
dont la somme est naturellement égale à 
N (dans notre exemple 2, 4 et 64). 


L’initialisation par SHEFT A sort les 
résultats dans l’ordre croissant, l’initiali- 
sation par SHFT Z, dans l’ordre 
décroissant. 


Dans les deux cas, la liste imprimée 
rappelle d’abord la valeur de N, définit 
les positions de X et de Y, imprime les 


Programme pour PC-1211, 1212/PC-1 avec imprimante 


Auteur Pierre Ladislas Gedo 
Copyright LIST et l’auteur 


140: KETNT LOG € 
M+.52/L06G 2) 

LOI VSINT 2x4. 
EME Y 


10: "A"INEUT " - 
—> NE'IN 
20: MEN: X=0 
30: GOSUB 200 160: GÜSUB 300 
40:GSINT <M/25 {70:IF M>OGOTO 1 
IF M=2#QLET 40 
MEQX=X+1: 130: GUSUR 400 
GOTO 40 200: A$="":Bg=" 
SO: Y=INT €2°x+. Ie" Mig» 
S) “ “iES$=" 
60:GOSUB 300 "iF$=" 
70:IF M>ILET Me " 
M-1:G0TO 40  Z10:PRINT C#i"H= 
30: GOSUE 400 "FH 
110:"Z"IMPUT * < Z20:PRINT " = 
——  NE'IN CHIME =2"x" 
120: M=N 230: PRINT " -—- 
130:GOSUB 200 a" 


N=151874, 


SOMME VX ons l'ordre 


Un nombre décomposé 


ZAD!FRINT " % END 
DUT "CYUIHEUT Ni 
250: PRINT  — EN H=0 


Dan aansse eh CETNT 1-29 
260: RETURN 
3090: J=10-IHT LOG 
+ 


IF M=ZxQLET 
MEQ: Men: 
GTi 510 
Z10: Gt=h$:H$=AS FRIHT X# 
320: IF RC1OLET G IF MYiLET M= 
F=R$ +0: GÜTO 510 
230:IF Y<CESLET H END 
£=F$: Tags “D'IMPUT N:H 
20: LH=A$ CIS =N ; 
SC: PRINT RSS MeIHT €LOG € 
LS BSIHES IESY M+,53-L0G 29 
360: FETUEN 0: VEINT 2744, 
400: PRINT ° SA MEN 
mm ÉZOS PRINT X 
410:FRINT N EdOS IF MCIOOTE 6 
420: PRINT " #okæx 10 
PR TEST LT 630: END 


N=151874. 
=GOMME Y=27X 


a ee ne un me me me me see 


croissant (SHFT À)... # Ÿ 


131072. 


151874, 
AO ARR 
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131072. 
16344, 
40%6. 
256. 
£4. 


.et dans l'ordre 2: 


décroissant 
151874. 
(SHFT Z) s#xrrtntetinte 


valeurs de X et de Y, totalise les Y et 
introduit une séparation en vue du calcul 
suivant. : 

Remarquez aux lignes 610 et 620 
l'introduction d’une constante +0,5. 
Elle est destinée à éliminer les erreurs 
d’arrondi de la machine. Sans cette pré- 
caution, vous trouvez en mode calcul (et 
naturellement également en mode pro- 
gramme) des résultats... faux. Par exem- 
ple, pour M=16, X=INT (LOG 
M/LOG 2)=3, alors que l’on devrait 
trouver 4, puisque 16=2* ; pour X=4, 
Y=INT (2AX)=15, alors que l’on 
devrait trouver 16, puisque 2*= 16. 

En écrivant X =INT (LOG (M +.5) / 
LOG 2) et Y=INT (2AX+.5), comme 
aux lignes 610 et 620, vous obtenez les 
valeurs correctes. 


Le plus court programme n’est donc 
pas forcément le meilleur. 


Pierre Ladislas GEDO 


ALLEZ-Y MAINTENANT, 
PROUVEZ - LE MOI QUE 
CE N'EST PAS UN 
ORDINATEUR DE 
Poce !!! 


OF 
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54 


y. 


PB-100 


Avæ les économies qe J'& Kautes 


UNE 
NOUVELLE 
FONCTION 


La fonction STR$ du Basic stan- 

dard transforme une valeur 
numérique en une chaîne de caractères. 
A première vue, cette fonction peut sem- L 
bler inutile. Des lignes telles que 8 
10A=123 : PRINT STRS$(A) et 
20A = 123 : PRINT A donnent exacte- 
ment le même résultat. 


Cependant, l’utilité de STR$ est ines- 
timable dans les traitements et l’édition 
des résultats. Certaines fonctions 
comme LEN, MID, ne peuvent être 
appliquées qu’à des variables de caractè- 
res. La transformation de A en STRS$(A) 
devient alors très intéressante. 


Mais tous les Basics ne possèdent pas 
cette fonction. En particulier, elle est 
absente du PB-100. Il faut donc la simu- 
ler. C’est ce que font les quelques lignes 


ZX 81 


ET CA DÉFILE, 
ET ÇA DÉFILE... 


Pendant la programmation, à l’introduction d’une ligne, le ZX 81 décale 

le fichier d’affichage pour créer la place de la nouvelle ligne de pro- 
gramme. Puis il affiche le programme en faisant défiler la liste si l’affichage 
dépasse lécran, et cela jusqu’à l’apparition de la ligne complète. Cet affichage à 
déroulement fait perdre beaucoup de temps. Or, un CLS puis LIST n° ligne 
n'empêche pas cette action. 


Pour que l’affichage ne considère que les dernières lignes introduites, il faut, au 
début du programme, garder un n° de ligne libre (2, 3,..., 9 au maximum) et dès 
que l’affichage remplit l’écran, au lieu de donner son numéro normal à la ligne 
suivante, on lui octroie un n° réservé auparavant. Après NEWLINE, on édite la 
ligne et on lui rend son n° normal. L’ordinateur n’affichera plus que la dernière 
ligne de programme et la précédente. On recommence dès que l’écran est plein. II 
ne faut surtout pas oublier d’effacer la ligne réservée quand le programme est ter- 
miné. 
Exemple, si la ligne réservée est la n° 2 : 
ligne normale : 500 GOSUB 1 000 


L INPUT Y:60SUB 4 
SPRINT $:60T0 1 

4 $="8123456789" 

3 FOR 2=9 TO 8 ST 
EP -{:Y=Y/18 

6 A$CZ)=NID(1+18+ 
FRAC Ÿ,132Y=INT 

Ÿ 


IF YsBFNEXT 2 

$="":Ye2:FOR 2= 

Ÿ TO 914-4807 
ENEKT 2 

9 RETURN 


du programme ci-dessus. Dans cet exem- 
ple, la ligne 1 est à elle seule le pro- 
gramme principal et les lignes 4 à 9 le 
sous-programme simulant la fonction 
STR$. 


André TURLURE 


ligne entrée : 002 GOSUB 1000 puis NEWLINE 
L'écran liste le programme depuis le début. 

On édite la ligne : 

modification de ligne : 500 GOSUB 1000 puis NEWLINE 


l’ordinateur affiche la ligne précédente (490) et la ligne 500. 


L'introduction d’une nouvelle ligne ne fera apparaître le programme qu’à par- 
tir de la ligne 500. 


Henri CASAL 
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ceHe annee «JTE 
a mm ordinakeu 
de veus pouvoir 
OLIS. UM 
compie à 

R caisse 


TO7 


LE TEMPS DE 
LA « PA USE » 


L'instruction PAUSE n’existant 
pas sur TO7, il faut l’inventer ! 


Une première solution consiste à utili- 
ser l’instruction INPUTWAIT dont la 
syntaxe est « INPUTWAIT L\iT,X », ce 
qui signifie « exécuter la ligne L si après 
T secondes la variable X n’a pas reçu de 
valeur ». 


Cette instruction a l’avantage de don- 
ner une temporisation directement 
exprimée en secondes, mais cette solu- 
tion comporte quelques inconvénients. 
Ainsi, un magnifique point d’interroga- 
tion s’affichera pendant toute la durée 
de l’attente. Et si, par malheur, vous 
entrez une donnée dans X, le pro- 
gramme poursuivra à la ligne suivante 
alors que vous vouliez poursuivre en 
ligne L. 

Une deuxième solution consiste à faire 
tourner une boucle vide comme suit : 
FOR I=1TOT:NEXT I. La temporisa- 
tion sera proportionnelle à la valeur de 
T. Sur le TOY, il faut compter environ 6 
secondes pour T = 5000. 


La troisième solution est d’utiliser une 
routine en langage-machine utilisant le 
TIMER du TO7. Je vous en propose 
une. Quand vous l’aurez implantée en 
mémoire, il vous suffira de donner la 
durée de la pause en dixièmes de seconde 
par POKE 24804, T où T exprime la 
temporisation désirée en dixièmes de 
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seconde. Vous pourrez alors dans un 
programme Basic quelconque lancer la 
temporisation par EXEC 24805. 

Voici le programme Basic qui vous 
permettra d’implanter la routine de 
Pause en mémoire : 

100 FOR ADR = 24805 TO 24820 

110 READ OCTET 

120 POKE ADR, OCTET 

130 NEXT ADR 

140 DATA 125, 231, 198, 39, 251, 125, 
231, 198, 38, 251, 106, 140, 242, 38, 
241, 57 

Cette routine occupe seize octets qui 
normalement ne sont pas utilisés. 


Seule restriction : la Pause ainsi obte- 
nue ne peut être supérieure à 25 secondes 
et demie. 


Jean-Paul CARRÉ 
LA MANTATURISATION 
C'EST L'AVENIR ŒQu'iis 
DISAIENT 1, _ 
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GOMPTFALEE 


Logiciel de Comptabilité Générale "Nouveau Plan Comptable" 
option génération :+200 frs 
option 180 Comptes +250 frs 


PALTELLE 


Logiciel du traitement de la Paie jusqu'à 80 employés 


option mensualisation +300 frs version trimestrialisation 1500 frs 


GARE" 


Logiciel de gestion des CHIFFRES dans le TEMPS (Histrogramme) 


PABAMORT-EREX " 


Logiciel de gestion du Tableau d'Amortissement linéaire & dégressif 
Logiciel de gestion des adresses postales (Mailing) 


Matériel utilisé TRS80 modèle 3, 4 ou 4P - 48/64 K - 2 unités 5"1/4 - TRSDOS 1.3 QWERTY 
andy corporation Imprimantes recommandées DMP200, DMP#20, DMP400, DMP420, LPVI, LPVIII 


PC-1 500 
UNE QUESTION SUR @ $ ET@ 


A quoi peuvent bien servir les « variables de tableau mémoire fixe » dont j'ai 
trouvé trace en parcourant les codes d'erreur du manuel du PC-1500 
(ERROR 20, page 153 précisément). Nulle explication dans le manuel et je n'ai 
rien trouvé de précis en expérimentant. Jean-Pierre PICARD 


76 - LE HAVRE 


F7 Cela mérite en effet une explication. Le manuel Sharp du PC-1500 est par- 
fois étrangement discret sur certaines des possibilités du Basic de l’ordina- 
teur. et c’est un bon manuel, comparé à certains autres. 


En fait, il faut se reporter à la page 71 pour apprendre ce qu’est un tableau de 
variables. Ce signe @ permet l’utilisation des 26 variables A à Z comme s’il 
s’agissait d’un tableau (matrice à une dimension de taille 26). Techniquement la 
variable A est rigoureusement équivalente à @ (1), B à @ (2), C à @ (3), …, Z à 
@ (26). De même, il existe cette possibilité pour les variables alphabétiques A$ à 
Z$ : @$ (1) à @$ (26). 

On le voit donc, seul le nom change : A peut se nommer @ (1). Pas sorcier, 
mais quel intérêt ? Essayez : 

10 : FOR A = 2 TO 26 30 : NEXT A 
20 : INPUT ‘NOMBRE ?”’;@(A) 40 : END 


RUN, et ce petit programme demande successivement 25 nombres qui seront 
rangés automatiquement dans les variables B à Z (c’est-à-dire @ (A) pour A 
valant successivement 2 à 26). 

Tout l'intérêt de ce tableau de variables est donc de permettre l’utilisation indi- 
recte (par l'intermédiaire d’une variable, ici A) de toutes les variables dites 


« fixes » À à Z'et AS à Z$. 
Jean-Christophe K RUST 


SPECIALISTE DES 
LOGICIELS DE 
GESTION SUR 
MICRO-ORDINATEUR 
adaptés aux PME 
PMI, commerçants, 
artisans, professions 
libérales. 


version 120 Comptes 1750frs 


@ Marques déposées Dominique PETITQUEUX 


version de base 900 frs 


Sarl au capital de 20.000 frs 


siège social 

5 rue Mont Alaric 
11100 NARBONNE 
68/42.18.92 & 49.82.57 


RC Narbonne B 327 181 293 


version de base 900 frs 


version de base 400 frs 
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LOGIQUE EN BASIC 


OUR le Basic 
aussi, ce qui est 
Vrai est Vrai, ce qui est 
faux est faux. Maïs où 
sont le vrai et le faux ? 


Bien que n’étant pas reconnus 

en tant que tels par la plupart 
des Basics disponibles sur les ordina- 
teurs, les booléens peuvent faciliter 
l'exécution de certains programmes, 
et servir efficacement dans des algo- 
rithmes délicats. 


Qu'est-ce qu’un booléen ? C’est une 
variable susceptible de prendre deux 
valeurs : VRAI ou FAUX, à l’exclusion 
de toute autre valeur. Les langages 
structurés (PASCAL, LSE, LOGO...) 
manipulent les booléens comme ils le 
font d’autres types de variables. Basic, 
lui, ne connaît que des « pseudo-boo- 
léens » qui revêtent une forme numéri- 
que particulière permettant bien des 
astuces de programmation. 


Pour connaître les deux valeurs boo- 
léennes utilisées par Basic, vous pouvez 
tout simplement taper au clavier de 
votre machine favorite : PRINT 5=5, 
et la réponse sera —1 (ou 1 selon la 
machine utilisée) ; PRINT 8>12 aura 
pour résultat l’affichage de O. 


Si vous faites quelques essais avec 
des valeurs différentes, vous constate- 
rez qu’il n’existe que deux réponses 
possibles, qui dépendent de la proposi- 
tion : 

. si celle-ci est vraie, la réponse est —1 
ou 1 ; 
. si elle est fausse, la réponse est 0. 


Le Basic reconnait donc le vrai du 
faux, mais ne sait pas les désigner par 
les mots «true» (vrai) et « false » 
(faux) comme d’autres langages plus 
évolués. Ses « pseudo-booléens » sont 
donc plutôt des opérateurs de 
relation. 


Et ils sont simples à utiliser. Ainsi, il 
est parfaitement possible d’intégrer des 
opérateurs de relation dans les calculs 
numériques les plus traditionnels. 
Essayez par exemple : PRINT (8= 8)+3 
et vous obtiendrez —3 (ou 3). Mieux 
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DITES, J'4i UN TROBLÈME, 
Vous POUVEZ H'ENVOYER 
UNE ÉQUIPÉ DE , 


BOOLÉENS... 


TOUT DESUITE, 
HoWsiEUR! 


encore, essayez : A=8 : B=9 : PRINT 
(A>B)+10. 


Ici, la réponse est 0, puisque A est 
inférieur à B. 


Cette propriété peut vous permettre 
d’économiser beaucoup de place en 
mémoire, et de gagner de la vitesse à 
l’exécution de certaines parties de pro- 
gramme. L’exemple qui suit illustre ce 
gain. Il affiche le double d’une valeur 
entrée au clavier, si celle-ci dépasse 5, 
et affiche O dans le cas contraire. 


1 — Programme classique 
5 B=0 
10 INPUT A 
20 IF A>5 THEN B=A#2 
30 PRINT B 
40 GOTO 5 


2 — Programme plus « sioux » 
10 INPUT A 
20 PRINT ABS (A>5)xAx2 
30 GOTO 10 


Si votre ordinateur produit 1 quand 
la relation est vraie, il est possible de 
supprimer le ABS dans la ligne 20. Il 
est même possible d’intégrer un opéra- 
teur booléen dans une ligne DEF du 
programme. Encore faut-il que votre 
Basic possède l'instruction DEF per- 
mettant de définir une fonction. 


L’exemple ci-dessus devient alors : 
5 DEF FNF (X) = ABS (X>5)*X+2 
10 INPUT A 
20 PRINT FNF (A) 
30 GOTO 10 


Dans les expressions IF... THEN du 
Basic, il est tout à fait habituel d’utili- 
ser les opérateurs de relation. Dans une 
ligne comme: IF A<>0 THEN 
PRINT « DIFFERENT », l’ordinateur 
évalue l’expression proposée. Si le 


a 


e1 |) 


résultat du test est vrai, la valeur ren- 
due est —1 (ou 1), et la machine exé- 
cute la fin de la ligne. Sinon, elle passe 
à la ligne suivante... Il existe toutefois 
une faille dans la logique de l’ordina- 
teur, qui rend possible des lignes telles 
que : IF A THEN PRINT « DIFFE 
RENT ». 


En effet, la variable A n’étant com- 
parée avec rien, le Basic la prend 
comme le résultat de l’évaluation de 
l’expression. Certains Basics considè- 
rent que la valeur booléenne de A est 0 
(c'est-à-dire « faux ») dès que A est 
inférieur ou égal à 0, d’autres seule- 
ment quand A est égal à O0. Ils passent 
alors à la ligne suivante. 


Aussi, il est parfaitement possible de 
remplacer dans vos programmes tous 
les « <>0» ou « >O0», selon le 
Basic, par. rien du tout ! 


L'économie en octets peut être ainsi 
appréciable (ce que vous constaterez 
facilement en contrôlant dans vos pro- 
grammes la fréquence d’apparition de 
cette formule) et l’exécution du pro- 
gramme pourra être accélérée de façon 
spectaculaire. 


Lors de l’évaluation d’un calcul fai- 
sant intervenir les pseudo-booléens, la 
priorité va aux calculs numériques. Ils 
sont effectués avant les calculs logi- 
ques. L’utilisation des parenthèses est 
donc primordiale dans certaines évalua- 
tions : PRINT 30=15+15 rend la 
valeur 1 ou —1, parce que l’addition 
est effectuée d’abord ; PRINT 
(30=15)+15 rend 15 qui est la somme 
de 0 (faux) et de 15. 


Le champ d’application des pseudo- 
booléens est pratiquement illimité. 
Seule l’imagination peut faire défaut. 
Certains ne manqueront pas de leur 
reprocher de compliquer la mainte- 
nance des programmes en les rendant 
plus difficiles à comprendre. Mais toute 
médaille a son revers ! 


Robin BOIS 
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Dove 


OO ns 


OUR évaluer en partie les performances d'un 

ordinateur donné, et plus précisément les qualités 
de son Basic, nous avons retenu (provisoirement) 
dix tests. Ils permettent de mesurer la vitesse avec 
laquelle la machine exécute ses appels de sous- 
programmes et diverses instructions de traitement 
de chaines de caractères, de calculs arithmétiques, 
d'opérations sur les tableaux de variables, et. 


Cette batterie de tests n'est évidemment pas 
parfaite, maïs elle permet de se faire une première 
idée. Pour certains ordinateurs, il faudra procéder 
à des adaptations. Rien ne dit d'ailleurs qu'a 
l'avenir nous ne serons pas conduits à modifier 
l'un ou l'autre de ces tests pour obtenir un outil 
permettant une mesure plus précise, plus complete. 


Vos suggestions sont les bienvenues. 


Chaque test est constitué d’une 

boucle parcourue dix mille fois, 
y compris le test 3 (voir la description 
des tests page suivante) où la boucle est 
répartie en trois FOR-NEXT imbri- 
qués. 


- Le premier d’ailleurs consiste en une 
simple boucle vide, et donne une pre- 
mière idée de la rapidité du Basic. 
Grâce à lui vous pouvez le plus souvent 
déterminer assez précisément la durée 
des opérations qui font l’objet des 
autres tests. Une soustraction suffit : 
durée du test moins durée des 10 000 
boucles. Attention cependant : on a vu 
récemment des Basics particulièrement 


N° 1 - JUILLET AOÛT 84 


LIST 


1 - Boucle vide 


| 2 - Sous-programmes 


3 - Matrice 


rusés qui (peut-être dans l’optique de ce 
style de test) sautent l’exécution réelle 
de la boucle lorsqu'un NEXT suit 
directement son FOR. Le temps devient 
voisin de zéro, et le test n’a bien sûr 
plus aucune signification ! 


Le deuxième test contient une imbri- 
cation de deux sous-programmes. A 
première vue, il semblerait qu’un sim- 
ple GOSUB-RETURN ait suffit, mais 
il s’avère que certains Basics font 
leur premier GOSUB extrêmement 
rapidement et ralentissent dès qu’ils 
rencontrent une imbrication avec un 
deuxième GOSUB. Et rares sont les 
vrais programmes ne comportant 
aucune imbrication. 


La rapidité d'accès à des variables 
faisant partie de tableaux à deux 
dimensions est mesurée par le test 3. 
Pour que la clause des « dix mille » 
soit respectée, nous avons été conduits 
à découper en trois FOR-NEXT. Nous 
aurions pu utiliser seulement deux bou- 


Thomson MOS | Sinclair Spectrum | 


42 
106 
115 


4 - Chaînes de caractères 195 


5 - Arithmétique 


132 


6 - Calcul scientifique 1 180 


- Affichage 
- Tracé graphique 


- Ecriture fichier 


- Lecture fichier 


(6 chiffres) (8 chiffres) 
295 243 
1 430 610 
(320 X 200 pts) | (256 X 176 pts) 
940 


(cassette) 
940 


| (cassette) 


(tous les temps sont exprimés en secondes) 
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LES DIX. TESTS 
DE LIST 


cles de 1 à 100, dites-vous ? Mais peu 
de petits ordinateurs acceptent à l’heure 
actuelle des DIM A(100,100). 


Les quatrième, cinquième et sixième 
tests tournent respectivement autour de 
la manipulation des chaînes de caractè- 
res, des calculs arithmétiques et des cal- 
culs scientifiques. Selon l’utilisation de 
votre machine, l’un de ces tests sera 
plus important que les autres. Il est à 
noter que dans le test 6 nous avons 
choisi deux fonctions parmi les plus 
utilisées : sinus (les temps mis par les 
autres fonctions trigonométriques sont 
du même ordre) et logarithme (les cal- 
culs de puissance utilisent les log). 
Comme ce test favorise les Basics cal- 
culant avec peu de chiffres significatifs, 
il n’a de sens que si l’on tient égale- 
ment compte de la précision des cal- 
culs. 


Test 1 - Boucle vide 


10 FOR I = 1 TO 10000 10 
20 ONEXTI 15 
30 END 20 

30 


Test 2 - Sous-programmes 


10 FOR I = 1 TO 10000! 
15  GOSUB 100 


20 NEXTI 10 
30 END 15 
100  GOSUB 110 

110 RETURN … 


Test 3 - Matrice 


5 DIM A(10,10) 
10 FORI = 1 TO 10 


12 FOR J = 1 TO 10 10 
13 FOR K = 1 TO 100 se 
15 A(L,J) = K 30 
17 NEXT K 

18 NEXT J 

20 NEXT I 

30 END : 
Test 4 - Opérations sur les chaînes de : 
caractères 15 
5 A$ = « LISTEST » 20 
10 FOR I = 1 TO 10000 25 
15 B$ = LEFTS$(AS,2) + MID$ 30 

(A$,3,3) + RIGHTS$(AS$,2) 

20 NEXT I 

30 END 

Test 5 - Arithmétique F. 
10 FOR I = 1 TO 10000 15 
15 J = Ix7 + 3/1 20 
20 NEXT I 25 
30 END 30 
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Test 6 - Calcul scientifique 


FOR I = 1 TO 10000 
J = SIN (LOG(I)) 
NEXT I 

END 


Test 7 - Affichage 


FOR I = 1 TO 10000 
PRINT CHRS(11) ; « LIS 
TEST » ; I 

NEXT I 

END 


Test 8 - Tracé d’une ligne graphique 


FOR I = 1 TO 10000 
LINE (0,0) — (319,199) 
NEXT I 

END 


Test 9 - Ecriture de fichiers 


A$ = « LISTEST » 

OPEN « O », #1, « FICHIER » 
FOR I = 1 TO 10000 

PRINT #1, A$ 

NEXT I 

CLOSE 

END 


Test 10 - Lecture de fichiers 


OPEN «I », #1, « FICHIER » 
FOR I = 1 TO 10000 

INPUT #1, A$ 

NEXT I 

CLOSE 

END 


L'écriture des quatre derniers tests 
peut varier selon les Basics. En voici la 
description : 

° Test 7. Pour éviter qu’il ne mesure la 
durée de déroulement sur l’écran (en 
anglais : scrolling) plutôt que celle de 
l’affichage, nous écrivons dix mille fois 
au même endroit. Ainsi le rôle du 
CHRS$(11) du MOS est simplement de 
remonter le curseur d’une ligne vers le 
haut. Ce caractère de contrôle peut 
varier selon les machines. ° 

e Test 8. La commande graphique la 
plus employée étant le tracé de ligne, ce 
test dessine la diagonale allant du haut 
gauche au bas droit de l'écran. Là 
aussi, il nous faut préciser la définition 
de l’écran puisque les machines à faible 
résolution seront favorisées. 

. Tests 9 et 10. Ces écritures et lectures 
de fichiers séquentiels sont importantes 
pour bien des applications. Le fichier à 
manipuler est gros : il comporte en 
effet 10 000 X (7 caractères + carac- 
tère de fin de chaîne), soit un total de 
80 Ko. Il nous faut bien sûr préciser s’il 
est sur disquette ou cassette. Quel débit 
moyen en déduisons-nous pour les 
fichiers sur cassette du MOS ? Nous 
obtenons (80 000 x 8)/940, soit envi- 
ron 680 bits par seconde. La différence 
avec les 120 bauds annoncés par le 
constructeur s’explique par le décou- 
page en blocs de 256 octets, l’intervalle 
entre les blocs n’étant pas négligeable. 


Christian BOYER 
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FORTH, 
UN LANGAGE ÉPATANT 


ET article est le premier d'une série destinée 
à vous familiariser avec un langage curieusement peu connu en France. 
L'auteur est un passionné du Forth, et il espère bien vous faire 
partager son enthousiasme. Si vous avez des suggestions 
ou des critiques à lui adresser, n'hésitez pas : 


à vos claviers ! 


Pour moi, tout a commencé dans 

une boutique de Marseille, où 
j'étais venu fureter, glaner des informa- 
tions, de la «doc». J'avais alors 
décidé d’acheter un ordinateur, mais je 
ne connaissais à peu près rien à l’infor- 
matique. Je savais seulement que les 
ordinateurs consomment de l’électri- 
cité, qu'ils sont dotés d’une mémoire et 
que l’on peut leur demander beaucoup 
de choses à condition de savoir s’y 
prendre. 


À quarante-huit ans, quand on voit 
autour de soi beaucoup de jeunes se 
passionner pour une activité très 
récente et très prometteuse, on a le 
choix entre deux attitudes : se réfugier 
dans une critique désabusée ou se lan- 
cer à la découverte. Si l’on adopte la 
seconde solution, on doit oublier son 
amour propre qui risque d’être mal- 
mené pendant quelque temps... C’est ce 
que j’avais décidé de faire. 


* Dans cette boutique de Marseille, le 
vendeur auquel j'allais avoir affaire 
était compétent et il souriait, mais sans 
suffisance. J'étais un client assez inté- 
ressé pour être « intéressant ». Il me 
montra ce que la maison pouvait faire 
pour moi, c’est-à-dire me vendre un 
ordinateur avec une ou deux unités de 
disquette et quelques logiciels. Le tout, 
bien entendu, pour un prix très avanta- 
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geux ! Coup de chance, il y avait juste- 
ment une promotion sur un fruit 
anglais entamé... 


Poliment, je pris quelque recul en 
avertissant que j'allais réfléchir, que je 
ne voulais pas me décider sur un coup 
de tête. Et c’est à ce moment-là que 
survint l’événement qui allait détermi- 
ner la suite de mon avenir informa- 
tique. Un autre client, plus jeune que 
moi, et dont l’aspect m’inspirait con- 
fiance, me demanda : 

— Vous ne connaissez rien à l’infor- 
matique, si j’ai bien compris ? 

— Rien de rien. Mais je suis plein de 
bonne volonté... 

— Me permettez-vous un conseil ? 

— Je vous écoute. 

— Laissez tomber le Basic. Choisissez 
le Forth, d’entrée de jeu. Le Forth... 
— Comment cela ? 

Mais oui, le Forth. C’est un langage 
extraordinaire. Il est à peu près dix fois 
plus rapide que le Basic et cinq à six 
fois moins gourmand en mémoire. Il a 
été créé il y a une dizaine d’années par 
un scientifique américain qui n’était 
pas satisfait de ce qu’il pouvait faire 
avec les autres langages. 

— Fichtre ! Mais ça doit être beaucoup 
plus difficile que le Basic ? 

— Pas du tout. Si c’était le cas, je ne 
vous donnerais pas ce conseil. 

— Excusez-moi, sans être indiscret, 
vous êtes de la maison ? 

— Pas du tout : je suis biologiste et je 
travaille dans la recherche. 


Cinq minutes plus tard, au bar-tabac 
du coin, il continuait : 


— Croyez-moi, si les gens savaient ce 
qu'est le Forth, ce qu’il peut leur 
apporter, ils laisseraient souvent le 
Basic de côté... 

— Ma parole, mais vous ne jurez que 
par Forth ! 

— Il y a de ça. Je programmais en 
Fortran, en Cobol et en Basic. Eh bien, 
progressivement, je délaisse ces langa- 
ges pour le Forth que j’ai découvert 
depuis peu. Voilà pourquoi je vous 
recommande de débuter avec le Forth. 
En fin de compte, c’est aussi facile que 
le Basic, mise à part une petite diffi- 
culté sur laquelle je reviendrai. Forth 
est rapide, il est proche de la machine 
avec laquelle vous allez dialoguer, et il 
consomme peu de mémoire. De plus, il 
est construit autour d’un ensemble de 
mots avec lesquels vous pouvez définir 
votre propre vocabulaire. 

— Sans comprendre tout ce que vous 
me dites, je suis assez séduit. Mais 
quelle machine choisir ? Je n’ai aucune 
intention de me ruiner, vous savez ? 
— Il n’est pas question de vous ruiner. 
Beaucoup d’ordinateurs destinés aux 
particuliers ont un Basic résident, c’est- 
à-dire inscrit en mémoire morte. Mais 
ces mêmes machines ont très souvent 
un Forth en option, soit sur cassette, 
soit sur disquette et parfois même en 
cartouche de mémoire morte. Il existe 
aussi quelques ordinateurs dotés d’ori- 
gine d’un Forth en mémoire morte. 

— Lesquels ? 

— Le Jupiter Ace, par exemple, qui est 
anglais, très astucieux et bon marché. 
Et puis l’Hector HRX, français, plus 
cher, mais remarquable. 
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PORTE, 


UN LANGAGE ÉPATANT 


— Il y en a un qui a votre préférence ? 
— J'utilise les deux. 

— Bien. J’y vois un peu plus clair. 
Mais tout à l’heure, vous m’avez parlé 
d’une petite difficulté. 

— Ah, c’est vrai, j'oubliais. Comment 
fait-on une addition, selon vous ? 

— Vous êtes sérieux ? 

— Mais bien sûr. 

— Eh bien, selon moi, deux plus deux, 
cela fait quatre. C’est toujours valable, 
n'est-ce pas ? 

— Oui, mais en Forth, cette addition 
se fait et s’écrit « deux, espace, deux, 
espace, plus, et enfin point ». C’est une 
habitude à prendre... 

— Aïe ! Je n’y comprends plus rien du 


tout. Qu'est-ce que vous voulez dire ? 


— Exactement la même chose que 
deux plus deux font quatre. Seulement 
les machines Forth fonctionnent selon 
la notation polonaise inverse. Elles ne 
sont pas les seules. Les utilisateurs des 
calculatrices Hewlett-Packard se sont 
habitués à cette façon d’écrire une opé- 
ration et la plupart d’entre eux l’esti- 
ment excellente. Mais indépendamment 
de cela, cette notation particulière est 
très importante, car elle explique en 
grande partie pourquoi le Forth est si 
rapide. 

Cet entretien m’a trotté dans la tête 
plusieurs jours durant, et je me suis 
finalement décidé à me mettre au 


Forth. Je ne l’ai pas regretté. Pourquoi 
ne feriez-vous pas comme moi ? Au ris- 
que d’insister un peu, je vous dirais 
encore que je me suis mis au Forth 
récemment, et que mon avantage sur 
vous n’est donc pas bien grand. Je vous 
dirais aussi que je ne suis plus un 
gamin. Si vous avez la chance de l’être 
encore, vous progresserez plus vite que 
moi. Sinon, vous êtes dans mon cas, et 
vous n’avez pas de temps à perdre. 
Alors, on y va ? On regarde le Forth 
d’un peu plus près ? Oui, OK ? 


Eh bien, c’est déjà fait : nous venons 
de commencer, car OUI ou OK (selon 
les machines) sont deux des mots Forth 
que vous rencontrerez le plus souvent. 
Ce n’est pas une exclusivité de Forth, 
mais dans ce langage qui dialogue en 
permanence avec l'utilisateur, ils sont 
chargés de sens. Ce n’est pas un OK de 
pure forme : la machine vous signale 
ainsi que ce que vous venez de faire est 
licite, exécutable. 


Forth chargé depuis sa cassette ou sa 
disquette (s’il n’est pas résident en 
mémoire morte), l’ordinateur vous ren- 
voie donc OK. Nous allons nous livrer 


DITES-MOI 
CEST F 
GA, HEIN !.. 


à une première expérience. Mais aupa- 
ravant, une précision s’impose pour 
mieux comprendre la suite. A chaque 
fois que vous rencontrerez le signe 
‘<°%, cela signifiera que l’on doit frap- 
per la barre d’espacement. Quand vous 
aurez bien compris l’importance de 
l’espace en Forth, nous nous dispense- 
rons de ce signe. Mais il faut dès à pré- 
sent se pénétrer de l’idée que l’espace 
est un mot du Forth. 


Vous frappez donc au clavier : 
:SSALUT°.‘*°BONJOUR°LES"®° 
AMIS°”’°;RR 


Le RR final représente vous 
l’aviez sans doute deviné — un appui 
sur la touche RETURN ou ENTER, 
selon la machine. Une fois RR exécuté, 
vous retrouvez à l’écran OK et le cur- 
seur. Maintenant, vous frappez simple- 
ment SALUT°RR 


La machine vous renvoie BONJOUR 
LES AMIS OK, et vous retrouvez votre 
précieux curseur (dont la perte dans les 
entrailles de la machine ne présage 
jamais rien de bon !). Prenons les 
signes un par un. 

: (les deux-points). Mot Forth qui 
débute une nouvelle définition du dic- 
tionnaire et l’ajoute en tête de tous les 
mots que connaît déjà votre machine. 
° (l’espace). Joue le rôle de délimiteur 
et indique à l’ordinateur quand un mot 
est terminé, prêt pour l'exécution. 


HE VOUAIS 
EVE 
CEST FORTH. 


COMME LA 


POLONAISE ; / 
GA M ‘INVERGE, à 
VOYEZ-VOUS 
M LA se 
TIM 
DELALUNE . 
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Comme un mot Forth peut comporter 
un ou plusieurs signes, il faut bien 
fournir au processeur un repère pour 
séparer les mots. 
SALUT®° Voilà la suite de caractères 
dont vous voulez faire un nouveau mot 
Forth. La situation est analogue à celle 
de tout dictionnaire (Larousse, Littré, 
Robert, etc.). Vous venez de créer une 
tête de rubrique, et sa définition va sui- 
vre. Remarquez, bien entendu, l’espace 
qui termine le mot. 
.‘° Cette fois-ci, il n’y a pas d’espace 
entre le point (.) et les guillemets (‘*), 
vous l’avez bien noté. Ce mot Forth 
s’appelle ‘‘point-guillemets””. Il donne 
à la machine l’ordre d’afficher sur 
l’écran la chaîne de caractères qui suit 
l’espace. Ce mot est donc composé de 
trois signes, le point, les guillemets et 
l’espace. J’insiste ici, car la majorité 
des difficultés rencontrées par les per- 
sonnes qui débutent en Forth vient de 
l’oubli de l’espace à la fin de chaque 
mot (croyez-en mon expérience person- 
nelle..…). 
BONJOUR"LES° AMIS° Rien à signa- 
ler, c’est la suite de caractères à affi- 
cher. 
‘“ Fin de la suite de caractères. Vous 
avez compris que le point-guillemets 
(.‘‘) appelle obligatoirement un 
guillemets-espace (‘‘°) à l’autre bout de 
la chaîne : il faut bien que ce message 
ait une fin ! 
; Vous noterez que, pour une fois, il 
n’y a pas d’espace entre le point-virgule 
et le RR. Cela s’explique facilement, 
puisque le point-virgule signifie précisé- 
ment ‘‘fin de la définition”. 

Notre premier programme Forth est 
terminé et, détail qui a une certaine 
importance (non ?), il marche ! 


Frappons maintenant au clavier un 
autre mot que nous allons souvent utili- 
ser. Il s’agit de VLIST. Avec VLIST, on 
fait afficher par l’ordinateur la totalité 
des mots qui constituent le dictionnaire. 
Ce sont les derniers entrés qui apparaïis- 
sent en premier. On voit donc s’affi- 
cher : SALUT, puis FORTH, etc. Vous 
avez donc bien enrichi le dictionnaire 
d’un nouveau mot (SALUT), et à cha- 
que fois que vous entrerez SALUT, 
votre machine vous retournera BON- 
JOUR LES AMIS. Vérifions-le en 
créant deux autres mots. Imaginons que 
votre nom soit Irénée Timoléon Dela- 
lune, et frappons au clavier : 
::SALUT°CR°.‘"° BONJOUR °MON° 
CHER°’’°CR°;RR 
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:°XXX°.*°IRENEE°TIMOLEON"DE 
LALUNE°”;RR 


Et pendant que nous sommes en veine 
de création, ajoutons : 
:°ZOZO°CLS°SALUT°XXX°;RR 


Remarquons tout de suite que nous 
avons employé deux mots nouveaux : 
CR c'est-à-dire passage à la ligne ou 
retour-chariot (en anglais Carriage 
Return, d’où le CR) ; 

CLS qui efface tout ce qui est affiché à 
l’écran (abréviation de l’anglais Clear 
Screen). 


Nous sommes prêts pour faire exécu- 
ter ZOZO°RR. Docilement, votre ordi- 
nateur vous renvoie : 

BONJOUR MON CHER 
IRENEE TIMOLEON DELALUNE 
OK 


Regardons d’un peu plus près ce que 
nous avons demandé à Forth. Nous 
avons créé trois mots SALUT, XXX et 
ZOZO. Mais les choses ont évolué rapi- 
dement. Pour définir le troisième mot, 
nous avons utilisé les deux autres et il a 
suffi de rentrer le troisième (ZOZO) 
pour que l’ordinateur aille rechercher 
dans le dictionnaire la signification de 
CLS, SALUT, XXX, qui définissent 
ZOZO. Tout s’est passé de la même 
façon que lorsque vous tombez sur un 
mot dont vous ignorez le sens. Vous 
vous reportez à votre dictionnaire 
favori, et si, dans la définition du mot, 
vous trouvez de nouveau un terme diffi- 
cile, vous allez chercher à sa rubrique 
dans le même dictionnaire. Et ainsi de 
suite... Forth procède exactement 
comme vous et moi. 


Que donne VLIST maintenant ? Eh 
bien il affiche successivement ZOZO, 
XXX, SALUT, SALUT, FORTH, etc. 
Et ne nous étonnons surtout pas de trou- 
ver deux fois de suite le mot SALUT. 
C’est que le premier n’a pas été oublié 
par l’ordinateur. Quand nous deman- 
dons l’exécution de ZOZO, la machine 
va chercher le dernier SALUT entré, 
celui qui vous salue, vous, en particulier. 
Et si elle procède ainsi, c’est parce que ce 
SALUT est au sommet de la ‘‘pile’”’, un 
concept sur lequel nous ne manquerons 
pas de revenir en détail une prochaine 
fois. 


Nous aurons beau nous obstiner en 
tapant SALUT°RR, nous obtiendrons 
systématiquement : BONJOUR MON 
CHER OK. Si nous voulons retrouver le 
BONJOUR LES AMIS OK du départ, il 


ne nous reste plus qu’à demander 
FORGET°SALUT°RR... Mais n’allons 
pas trop vite. Il faut en effet que vous 
sachiez bien ce qui se produit quand on 
emploie FORGET (en français : oublie). 
Cet ordre fait oublier par la machine le 
mot désigné (ici le dernier SALUT entré 
au dictionnaire), mais aussi tous les 
mots qui ont été définis par la 
suite. Ainsi, dans notre exemple, 
FORGET°SALUT°RR fera perdre 
SALUT, mais aussi XXX et ZOZO. 


Avant d'utiliser FORGET, il est pru- 
dent de vérifier par VLIST quels sont les 
mots qui vont être oubliés, rayés du dic- 
tionnaire. Souvent, il est intéressant de 
définir un nouveau mot, mais il arrive 
aussi que les limites imposées par la 
mémoire vive disponible obligent à 
‘‘nettoyer”’ le dictionnaire des mots 
devenus inutiles. 


Dans notre cas, réintroduire le dernier 
SALUT, XXX et ZOZO ne demande 
que peu de temps. Nous allons donc pas- 
ser par le redoutable FORGET°SALUT 
°RR. Voilà qui est fait. Demandons 
maintenant SALUT°RR, -et nous obte- 
nons bien l'affichage de BONJOUR 
LES AMIS OK, comme au début. 


Si nous faisons la contre-épreuve en 
entrant ZOZO®RR, nous ne serons pas 
surpris de voir s’afficher un message 
d’erreur dont la teneur variera selon la 
machine utilisée. L’ordinateur a recher- 
ché ZOZO dans son dictionnaire et ne 
l’a pas trouvé ; on lui a donc demandé 
l’impossible. Pas de surprise non plus du 
côté de VLIST°RR qui affiche désor- 
mais SALUT, FORTH, etc. 


Le mot FORTH qui apparaît grâce à 
VLIST est le premier du dictionnaire 
permanent de la machine. Cette partie 
du dictionnaire est à tout point de vue 
essentielle : elle regroupe les primitives 
et les définitions de base. Nous avons 
déjà rencontré plusieurs de ces primiti- 


ves : les deux-points, le point- 
guillemets, les guillemets, le point- 
virgule, CR, CLS, FORGET et VLIST. 


Alors, le Forth, est-ce si compliqué 
que cela ? Pour le prochain article, je 
vous réserve un petit programme de der- 
rière les fagots qui vous donnera, je 
l’espère, une haute idée des possibilités 
que ce langage de programmation vous 
offre. 


Bernard LAMBEY 
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VISITE GUIDÉE DANS 
LES RECOINS DE LA HP-41C 


NE « bogue », en jargon informatique, 
est une erreur de programmation. 


Les programmeurs de chex HP ont mis grand soin 
à faire de la HP-41C une machine sophistiquée, évolutive, sérieuse. 
Maïs la bogue est là, heureuse, énorme et subtile. 
Loin de diminuer l'intérêt du calculateur, elle en multiplie les attraits. 
La porte s'ouvre grande sur un monde merveilleux où tout est possible. 


La programmation synthétique 

n’est pas une nouveauté. On la 
doit à des explorateurs passionnés (1), 
mais tous ses secrets n’en ont pas 
encore été dévoilés. D’abord superbe- 
ment ignorée par Hewlett-Packard, 
cette nouvelle programmation est main- 
tenant reconnue, elle a fait toutes ses 
preuves. 


Nous, nous débutons ici en exposant 
clairement le principe fondateur du 
« synthétisme » : le Cric, et en décou- 
vrant quelques-unes de ses applications. 


« Chargement dans le Registre alpha 
d’Instructions Codées », ou Cric pour 
les intimes, tel est le nom de la procé- 
dure de création d'instructions synthéti- 
ques. C’est aussi le « sésame », la clef 
du jardin caché. Sans attendre, créons- 
le en suivant les instructions de l’enca- 
dré ci-contre. 


C'est fait ? Le Cric est donc mainte- 
nant assigné à la touche Z2+. Nous 
l’avons créé de toutes pièces, le Cric 
n'est pas programmable, seulement 
exécutable en mode de calcul. Si vous 
possédez le lecteur de cartes magnéti- 
ques, sauvegardez cette assignation à 
l’aide de WSTS. Au passage, notons 
qu’une seule face de carte est néces- 


(1) Synthetic Programming on the HP-41C de 
W.C. WICKES et dans L'Ordinateur Individuel 
n% 24 à 28 et n° 31, les articles de Philippe Des- 
camps ef Jean-Jacques Dhénin. 
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saire : enregistrer deux fois la face 1, 
relire en l’introduisant puis en pressant 
la touche <— pour terminer l’opération. 
Le Cric est comme un couteau qui 
permet de découper en tranches des ins- 
tructions normales et, avec ces mor- 
ceaux, tel un jeu d’assemblage, d’en 
construire de nouvelles : synthétiques. 


Assignation du Cric 
à la touche À + 


Avec une HP-41C nue de tout péri- 
phérique et module spécial (TIME auto- 
risé), provoquer un Memory Lost (étein- 
dre la HP, presser —, puis ON et relä- 
cher +). 


Lire : 


ASN (a) BEEP (a) Z2+| ASN BEEP I1 
ASN (æ) PACK (x) Z—-[ASN PACK —I1 


(PRGM) 00 REG 45 
ENTER 01 ENTER 
GTO.. 00 REG 45 
CAT 1 immédiatement 

suivi de R/S END 
(ALPHA) 

* 4094 ENTER 
BST (attendre) 4093 ENTER 
BST 4092 0 

BST 4091 LBL 00 
BST 4090 BEEP 
Su 4089 LBL 03 
7 4088 LBL 08 
C (en mode alpha) 4089 TC 
(PRGM) GTO.. 0.0000 


L 


Le Cric est maintenant assigné à la 
touche Z2+. Jusqu’à NULL, en mode 
USER, presser cette touche et lire 
XROM 05,03. 


Rien n’est vraiment créé, toutes les 
instructions synthétiques existent déjà 
dans les circuits de la machine, mais 
comme elles ne sont pas normalement 
disponibles pour l’utilisateur, il faut les 
retrouver par des voies détournées. 
Pour le comprendre, examinons ce 
qu'est une instruction pour la HP-41C. 


Dans la mémoire, les instructions ne 
sont pas écrites en toutes lettres mais 
codées. Ainsi LOG correspond au code 
86 et SIN au code 89. Il y a des instruc- 
tions à un seul code telles celles-là mais 
il en existe aussi à deux codes : VIEW 
X, TONE 9 ou RCL 16, etc. 


Dans ce cas, le premier code corres- 
pond au corps de l'instruction (RCL, 
TONE, VIEW, etc.) et le second code 
correspond lui à l’argument (X, 9, 16, 
etc.). 


Si Putilisateur avait la possibilité de 


programmer directement ces codes, 
comme en Basic avec la fonction 
POKE, le Cric n’aurait aucune utilité 
sinon pour les esthètes. Mais la HP 
rétorque imperturbablement NON 
EXISTENT lorsqu'on tape des fonc- 
tions telles RCL M ou d’autres fonc- 
tions synthétiques : elle ne les reconnaît 
pas. 


Sachant qu’un code peut prendre une 
valeur comprise entre 0 et 255, il y a 
donc 256 corps d’instructions théori- 
quement possibles (moins en fait car 
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QUON 
ENFERMAiT LES 
PREMIERS 


des lettres A, B, .…, et chiffres deman- 
dent aussi leur codage). Comme il y a 
des instructions de deux codes (on dira 
aussi : octets), voire plus, c’est à un 
minimum de 256 X 256 codages possi- 
bles de deux octets, soit 65536, que 
nous avons affaire! La HP « offi- 
cielle » est loin du compte ! 


Sans attendre, réalisons J’administra- 
tion de la preuve. La HP placée en 
mode USER (le Cric est à L+ et 
PACK à £-), programmons : 

01 1 

02 RCL IND 16 
03 RCL IND 16 
04 RDN 


BST deux fois pour se positionner 
sur le premier des RCL IND 16. En 
mode calcul exclusivement, exécuter le 
Cric. De retour en PRGM, effacer le 
RCL IND 16, SST, effacer RCL 00, 
SST : l’instruction synthétique RCL M 
est programmée ! 

Laissons le détail technique de la 
manipulation pour un prochain article, 
et contentons-nous d’en examiner la 
Due On programmera toujours : 


RCL IND 16 
RCL IND préfixe 
suffixe 

où le préfixe détermine le corps de 
l'instruction à créer (16 pour RCL) et 
le suffixe détermine son argument 
(RDN pour M). Que 16 — en fait IND 
16 — se transforme en RCL et RDN en 
M ne nous étonne plus car nous savons 
que ce qui importe n’est pas l’orthogra- 
phe mais le code. Or, IND 16 possède 
le code 144 de même que RCL, RDN 
vaut 117 de même que l’argument M. 
C’est la position du code (première ou 
deuxième) dans l’instruction qui déter- 
mine sa fonction : 
144 144 donne RCL, IND 16 
145 144 donne STO, IND 16 
144 117 donne RCL, M 
117 donne RDN 
etc. 
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Vous noterez que 144—128 -16. En 
fait si IND 16 vaut 144 c’est parce que 
IND ajoute toujours 128 : ainsi IND 16 
vaut 128+16, soit 144. 

L’encadré ci-dessous donne une pre- 
mière liste des préfixes et suffixes inté- 
ressants ; notons-en les plus spectacu- 
laires. Le préfixe 31 donne la fonction 
TONE. Rien d’extraordinaire... Mais il 


Quelques exemples 
d'instructions synthétiques 


Préfixe| Corps Argument 
IND généré généré 
16 


RDN 
17 
18 


RGTSTOTOZEZ 


apparaît que 128 codes différents peu- 
vent servir d’argument à cette fonction, 
générant ainsi autant de sons diffé- 
rents, du plus court au plus long, gra- 
ves ou aigus ! (Préfixe 31, suffixes LBL 
00 à LBL 14, 0 à 9, e, EEX CHS, RCL 
00 à RCL 15, STO 00 à STO 15, 


+—»/ X<Y9 XDY? X<=Y9? L+ 
Z— HMS+ HMS— MOD % %CH 
P—R R—P LN X!2 SQRT Y!X CHS 
EtX LOG 10tX EtX—1 SIN COS 
TAN ASIN ACOS ATAN DEC 1/X 
ABS FACT X#0? X>0? LNI+K X<0? 
INT FRC D—R R—D HMS HR RND 
OCT CLE X<>Y PI CLST Rt RDN 
LASTX CLX X=Y? X#Y? SIGN 
X<=0? MEAN SDEV AVIEW CLD.) 


Nous découvrons aussi 11 registres 
nouveaux de la HP-41C : M, N, O, P, 
Q,H,a,b,c,dete. Ce sont les regis- 
tres internes et la programmation 
synthétique est essentiellement l’art de 
leur manipulation (RCL, calcul, STO). 
Nous n’examinerons maintenant dans 
le détail que les quatre premiers qui ser- 
vent aux manipulations alphabétiques. 
Ils sont sans danger pour la santé intel- 
lectuelle de la machine. 


Ce n’est pas le cas des suivants qui 
permettent d’ordinaire à la HP de con- 
server des informations essentielles à 
son fonctionnement (variables du 
système) : leur manipulation inconsidé- 
rée peut la plonger dans un profond 
sommeil. Il devient nécessaire parfois 
de la laisser sans piles durant 24 
heures... Alors n’y touchons pas 
aujourd’hui. 


Un total de 24 caractères peut être 
conservé dans le registre alpha. Ce 
super-registre est en fait composé des 
registres internes M, N, O et P de la 
manière suivante : 


Sens 
Lu Lisssses Losguut Lisssue) € 


P (s] M  derrée 


Des caractères introduits dans le 
registre alpha seront rangés à la queue 
leu leu d’abord dans M puis N, O et P. 
Chaque nouveau caractère pousse les 
anciens vers la gauche à la manière 
d’une pile opérationnelle de 24 petits 
registres. Ainsi écrire LONGUE VIE A 
LIST donnera dans les registres inter- 
nes : 


Lius Lors 0 ÉVEUMUE LALLUSN 


et, par exemple, exécuter maintenant la 
fonction RCL M ramèënerait en X les 
codes de la chaîne de caractères « A 
LIST ». 


Ce qu’il importe de savoir c’est que 
ces registres alpha peuvent être 
employés tout à fait normalement par 
exemple pour économiser la pile opéra- 
tionnelle ou des registres classiques 
(une mine d’astuces pour l’optimisation 
des programmes). 

Enfin, avec STO, on découvrira que 
la HP-41C possède bien plus de carac- 
tères affichables que ne le dit son cons- 
tructeur : de quoi agrémenter les jeux 
de pendus de petits bonshommes et de 
potences ! 


Mais, patience. 
Jean-Christophe KRUST 
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NETTEMENT PLUS RAPIDE 
LE LANGAGE-MACHINE 


(PC-1251) 


ag np. ane pe np ap rennes ae mr 


N le sait, le langage-machine est beaucoup plus rapide 
que le Basic. On le sait, oui. Maïs tant que l'on ne l'a pas constaté 
« de visu », on ne se doute pas à quel point c'est vrai. 
Faites l'expérience sur votre poquette. 
Il y a gros à parier que vous ne serez pas déçu. 


Ann or 


AVEC L'UTILISATION PU LANGAGE - MACHINE, 
SA VICTOIRE ÉTAÎT PROGRAMMÉE ! 


Er La dernière version du manuel 

français qui est fourni lors de 
l'achat d’un PC-1251 donne des indica- 
tions précieuses si l’on veut que, pen- 
dant l'exécution d’un programme, 
l’afficheur du poquette ne soit pas 
aveugle. 


On y apprend, entre autres choses, 
que les 24 matrices de l’afficheur (5 
colonnes de 7 points pour chacune 
d’entre elles) sont divisées en deux 
zones distinctes. 


La première de ces deux zones com- 


prend les douze premières matrices 
d’affichage, soit un total de 60 colon- 
nes (12 X 5 = 60) qui sont mémorisées 
aux adresses 63488 à 63547 (en hexadé- 
cimal, &F800 à &F83B). 


Pour les 12 matrices suivantes, on 
doit compter à rebours : la dernière 
colonne de l’afficheur est en 63552 
(&F840), et la première colonne de la 
treizième matrice est en 63611 (&F87B). 
Au total, c’est donc en 120 octets de 
mémoire vive que se trouve codé ce que 
le 1251 peut afficher. 


Dans la même version du manuel, on 
apprend qu'il est possible de maintenir 
un message affiché pendant que le 
poquette exécute un programme. On 
obtient cette persistance de l’affichage 
avec un CALL &11E0 et l’on y met fin 
avec un CALL &I11ES5. Ainsi, pour 
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remplir l’écran de votre poquette d’un Basic utilise pour ses besoins propres 


même motif, vous n’avez qu’à essayer les octets &F800, et &F840 à &F847. 


ce programme en Basic : 

10 INPUT « MOTIF ? » ;A 

20 CALL &11E0 

30 FOR I = 0 TO &3B : POKE 
&F800 +1I,A : NEXT I 

40 FOR I = 0 TO &3B : POKE 
&F840+I,A : NEXT I 

50 GOTO 50 


A la question « MOTIF ? », répon- 
dez par un nombre compris entre 1 et 
127, et observez le résultat : il faut une 
douzaine de secondes pour que l’écran 
affiche ce que vous lui avez demandé... 
Accessoirement, on remarque que le 


Les colonnes correspondant à ces 
mémoires affichent en effet autre chose 
que prévu. 


Essayons maintenant d’obtenir le 


même résultat en langage-machine. 
Pour cela, nous utiliserons FILD dont 
la fonction est de remplir un bloc de 
1+ 1 octets à partir de l’octet pointé par 
DP, ces [+1 octets prenant la valeur 
contenue dans l’accumulateur A. 
L’équivalent des lignes 30 à 40 du pro- 
gramme Basic précédent donne en LM 
(langage-machine) la liste de la page 
suivante. 
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SAC PTT PTT PL AL 


y 


FTE: 


Tr 


2 SE OC nn mn 


A = FF 


00 3B LII 3B ;] = 3B 
10 F800 LIDP F800 ;DP = F800 
1F FILD DP)= A,(DP +1)=A, (..), (DP+1)=A 
00 3B LII 3B ;:1 = 3B 
10 F840 LIDP F840 ;DP = F840 
:(DP)=A,(DP +1)=A, (..), (DP+1)=A 


;FIN 


D'où le programme que je vous invite maintenant à entrer au clavier : 
10 POKE &C100, &02, &FF, &00, &3B, &10, &F8, &00, &1F 
20 POKE &C108, &00, &3B, &10, &F8, &40, &I1F, &37 
30 INPUT « MOTIF ? » ;A : POKE &CI101, A 


40 CALL &11E0 
50 CALL &C100 
60 GOTO 60 


Le CALL &C100 de la ligne 50 mène 
au même résultat que les lignes 30 et 40 
du programme Basic. Mais vous avez 
sans doute remarqué une « petite » 
différence, j’en suis sûr. Les choses se 
passent si vite maintenant que vous 
n’êtes plus capable de chronométrer la 
vitesse avec laquelle votre programme 
est exécuté. C’est devenu fulgurant. 


Remplacez maintenant la ligne 30 par 
30 POKE &C101, RND 127 ; et la ligne 
60 par 60 GOTO 30. Exécutez le nou- 
veau programme : le PC-1251 vous 
montre à l’afficheur des phénomènes 
auxquels vous n’étiez pas habitué. 


Bernard BOUVIER 


POUR ENCHAINER 
VOS PROGRAMMES 


SUR COMMODORE 


I votre programme est trop long pour tenir 
dans la mémoire de votre ordinateur, le remède 
est simple. Découpez-le en plusieurs morceaux. 
Le premier morceau appellera le deuxième, 
et ainsi de suite. Bien sûr, il y a quelques 
précautions à prendre... Quand on les connait, 


tout se passe bien. 


A quoi bon chaîner les program- 
mes ? En fait, les raisons ne 
manquent pas, mais j’en vois deux qui 
paraissent très pratiques. 


 LOAD 


D passe le relais 


En premier lieu, c’est grâce à cette 
technique que l’on pourra, à partir 
d’un programme de « menu », appeler 
le programme présent sur une dis- 
quette. Autre application, bien plus 
importante : c’est le chaînage qui per- 
mettra de faire exécuter par la machine 
des programmes beaucoup trop longs 
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pour la mémoire disponible. Encore 
faut-il, dans ce dernier cas, que le pas- 
sage d’une portion de programme à la 
suivante n’entraîne pas la perte des 
variables. 


L’instruction CHAIN, en tant que 
telle, ne figure pas dans le Basic des 
machines Commodore, mais peu 
importe. Le manuel de l’utilisateur est 
très discret sur cette question, il indique 
seulement qu’un LOAD placé dans un 
programme provoque le chargement et 
l’exécution du programme spécifié, 
sans perte des variables. Ce n’est pas 
vrai dans tous les cas, et l’exemple que 
nous allons développer nous fournira 
sur ce point des indications très utiles. 
Cet exemple, je vous invite. à le taper 
sans attendre au clavier de votre 
machine favorite. 


l 


Premier temps de la manœuvre, met- 
tre en mémoire et sauvegarder sur dis- 
quette les quatre lignes que voici : 

10 REM PROGRAMME 1! 

20 REM CE PROGRAMME EST LE 
PLUS LONG 

30 INPUT « VARIABLE Z » ; Z 

40 LOAD « PROGRAMME 2 », 8 


Vous devez maintenant entrer au cla- 
vier un second programme (plus court, 
remarquez-le, que le premier) et le sau- 
vegarder aussi sur disquette sous le 
nom de « PROGRAMME 2 ». 


10 REM PROGRAMME 2 

20 PRINT « Z CONTIENT 
ENCORE » ; Z 

30 END 


Cela fait, rappelez maintenant le pro- 
gramme n° 1 (LOAD « PRO- 
GRAMME I! », 8), et lancez-en l’exécu- 
tion. La ligne 30 vous demande d’attri- 
buer une valeur à la variable Z, puis la 
ligne 40 charge automatiquement le 
programme 2 et, sans rien vous deman- 
der, le fait s’exécuter. Vous constatez 
alors que le contenu de la variable Z 
n’a pas été modifié. Pourtant, le pro- 
gramme en mémoire a changé entre- 
temps : vous pouvez le vérifier avec 
l’ordre LIST. 


Tout paraît donc fonctionner à mer- 
veille. Observons tout de même ce qui 
se produit quand le programme n° 2 
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POUR ENCHAÏÎNER 
VOS PROGRAMMES 
SUR COMMODORE 


est plus long que le programme appe- 
lant. Pour ce faire, ajoutons au pro- 
gramme n° 2 une ou deux très longues 
lignes de REM, sauvegardons-le à la 
place du précédent en utilisant la com- 
mande SAVE « @ : PROGRAMME 
2 »,8 


Relançons maintenant le programme 
n° 1 pour constater (eh oui, malheureu- 
sement) que le contenu de la variable Z 
est définitivement perdu. Ce phéno- 
mène s'explique assez facilement : le 
pointeur indiquant la fin du pro- 
gramme Basic et le début de la zone où 
sont mémorisées les variables a été mis 
à jour au moment du premier LOAD, 
mais il n’a pas été modifié quand le 
second programme a été chargé. 


Le programme appelé est donc 


chargé en mémoire, maïs il peut recou- 
vrir les variables et, par conséquent, les 
détruire. Pire : le programme appelé ne 
s'exécute pas en entier pour la même 
raison. Essayez LIST, pour voir. 


Dans tous les cas, un autre problème 
se pose si des constantes alphanuméri- 
ques ont été définies dans le pro- 
gramme appelant. Exemple : 

25 CH$ = « CHAINE » 


Ici, un pointeur indique l’emplace- 
ment de la chaîne dans la mémoire de 
l’ordinateur. Mais ce pointeur n’est 
pas, lui non plus, modifié lors du char- 
gement suivant, alors qu’à l’emplace- 
ment de la chaîne se trouve tout autre 
chose ! Pour éluder ce problème, il suf- 
fit de conserver la chaîne dans la partie 
de mémoire vive réservée aux variables 
alphanumériques. On y parvient, tout 
simplement, en formulant ainsi la ligne 
de définition : 

25 CH$ = «»+« CHAINE » 


Pour des raisons analogues, les défi- 
nitions de fonctions telles que : 
25 DEF FNZ{X) = X?2 + SIN(X) 
provoquent souvent des difficultés. 
Dans ce cas, la solution la plus simple 
et la plus sûre consiste à redéfinir la 
fonction dans le programme appelé. 
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Il arrive très fréquemment que le 
programme « appelant » soit plus court 
que le programme « appelé ». Cela se 
produit, par exemple, quand le premier 
programme est un menu. Vous pouvez 
alors procéder de la façon suivante : 

e chargez l’un après l’autre tous les 
programmes par LOAD ; 

e pour chaque programme, notez la 
valeur obtenue en demandant à la 
machine PRINT PEEK (46), PEEK 
(45)0) ; 

e les deux valeurs que vous obtiendrez 
représentent le contenu du pointeur de 
fin de programme Basic ; l’important 
est de retenir la valeur maximale obte- 
nue, autrement dit celle du programme 
le plus long ; 

. cette valeur une fois connue, ajoutez 
au programme n° 1 la ligne suivante(l) : 
POKE 46,(X):POKE 45, (Y):CLR 


Dans cette ligne, X représente la 
valeur de PEEK(46), et Y la valeur de 
PEEK(45) ; ce sont les valeurs obtenues 


{1) Sur CBM 3000/4000/8000, on remplacera les 
adresses 46 et 45 par 43 et 42. 


avec le plus long des programmes à 
chaîner. N'oubliez pas le CLR qui éta- 
blit les valeurs des pointeurs associés. 


Une remarque pour finir. Si vous 
procédez comme je vous l’ai indiqué, et 
si vous voulez modifier par la suite l’un 
des programmes qui seront chaînés, 
retapez-le en entier au clavier et repre- 
nez le processus que nous venons de 
décrire. C’est indispensable si le pro- 
gramme que vous avez modifié est 
devenu le plus long de tous. 


Une prochaine fois, nous étudierons 
une autre technique de chaînage, moins 
élégante il est vrai, mais couramment 
utilisée sur toute la gamme Commo- 
dore. 


Jean-Pierre LALEVÉE 
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